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@ MS-DOS, Quick BASIC は Microsoft 社 の 登録 商標 で す . 
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は じ め に 


最近 の CC 言語 ブー ム の 中 で , BASIC は 影 が 薄れ た 感 が あり まし た . 言語 仕様 
的 に C と BASIC を 比較 すれ ば , C の 方 が 優れ て いる こと は 明白 な の で すか ら 当 
伏 の こと だ と 思い ます が …. 

BASIC の 大 き な 人 欠点 は 構造 化 プ ログ ラミ ング が 行い に くい こと で す . し か し , 
BASIC の 持つ 使い や すさ , 親しみ や すさ , 明 味 さき な どの ユー ザ ・ フ レン ドリ な 
環境 を 忘れ て は いけ ませ ん . この よう な よい 面 を 残し な が ら BASIC に 構造 化 と 
いう 概念 を 導入 すれ ば , C と は 異な る 新しい BASIC の 世界 が 開け る の で す . 

この よう な 観点 か ら Microsoft か ら Quick BASIC と いう 処理 系 が 発表 され ま 
し た だ た. Quick BASIC は , 


1 . 統合 開発 環境 
2 . プロ グラ ム の 構造 化 


と いう 2 つの 強力 な 武 益 を 備え た 新 世 代 言 語 で す . 
本 書 は , Quick BASIC の オペ レー ショ ン と プロ グラ ミン グ に つい て 入門 者 向 
け に 説明 し た も の で ,。 大 きく 次 の よう に 分 か れ て いま す . 


第 1 草 一 第 4 曹 オペ レー ショ ン 
第 5 章 一 第 9 曹 プロ グラ ミン グ 


ます 第 1 草 一 第 4 章 で Quick BASIC の 統合 開発 環境 で の オペ レー ショ ン を 説 
明 し ます . 次 に 第 5 章 , 第 6 章 で BASIC の 基本 プロ グラ ミン グ を 説明 し , 第 7 
章 で Quick BASIC に 導入 され た プロ グラ ミン グ に つい て 詳し く 説 明 し ます . ま 
た , 第 8 章 , 第 9 章 で は グラ フィ ッ ク , ファ イル 処理 な どの 楽し い 具 体 例 を 紹 


* し まず す : 
さら に 付録 に は , 言語 仕様 の 要約 , ステ ー ト メン トン 関数 一 覧 , 用 語 の 説明 
な と を つけ まし た の で , 必要 に 応じ て 参照 し て くだ さい 、. 


Quick BASIC は 新しい BASIC の 道 を 切り 開い て ゆく 可能 性 を 持っ た 言語 
いそ くそ ます. 本 書 が 新しい BASIC の 世界 へ の 橋渡し と し て , 多少 な り と も お 役 に 
立て れ ば 幸い で す . 


1989 年 4 月 河西 朝雄 
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2 型 に こだわ る コン ピュ ー マ ター ドド ーー 





旧型 っ て 何 ? 
Ouick BASIC の デー タ 下 
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| 


0U. 


コン ピュ ー タ と の 対語 …ーーーーー ae 


間 デ ー タ の 入力 と 出力 
llNPUT( デ ー タ の 入力 ) 
PRINT( デ ー タ の 出力 ) 


PRINT USING( 出 力 幅 を 指定 し た 出力 ) 


コン ピュ ー タ の 得意 技 ・ く り 返 し ーー 


FOBR 文 

劇 定 期 預 金 の 元利 合計 

誤差 を な くす 

ル ー プ の 中 に ルー ehdo フ ) 


軸 条 件 判断 を 行う 演算 子 
一 で て こい 最大 


回 数 が 決ま っ て いな いく り 返 し ーー 


因 WHILE 文 
央 倍々 預金 
SUM# ニ SUM 半 二 D 半 の 意味 を 考え る 


使っ て 便利 な 関数 の いろ いろ ーー 


BASIC の 算術 関数 
WM サイン ・ カ ー プ ブ を 描く 


画 READ 一 DATA 文 
時 RESTORE 文 
一 カー・ レ ー ス 


BASIC の 真髄 ・ 文 字 列 処理 ーーーー 


文 字 型 変数 と 文字 型 デ ー タ の 演算 
文字 列 処理 関数 

WWW ョ アス キー・ コ ー ド と キャ ラク タ 

lm 秘密 の 会 話 


デー タ を まとめ て 管理 する 配列 ーー 


m 1 次元 配列 は 100 人 力 
WW 配列 に デー タ を 入れ る 
共 単 語 ド リル 
成績 表 は 2 次元 配列 で 


. サブ ルー チン で プロ グラ ム を コン パク ト に ーー 


財 サ ブフ ルーチン の 定義 と 呼び 出し 
ll 相性 度 を 測る サブ ルー チン 


当 ボ ー ル を 移動 する 
誠 ボ ー ル を 反映 する 
基 ラ ケッ ト の 移動 

較 ラ ケッ ト ・ ゲ ケ ゲーム 


計 ! 析 | ! 柏 計 中 了 中 本 計 中 


ー……94 
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133 
130 
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ーー 
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1 hh 本 h 1 hh HHh 町 Eh hh hh hh ii 


ミン グ こ と は 


近代 的 流れ 制御 構造 ーーーーーーー 


形 ブロ ッ ク IF 
環 SEFELECT CASE 
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WW ルーフ か ら の 強制 脱出 EXIT 


一 電卓 プロ グラ ム 


プロ シー ジャ セ ャ (手続 き ) 


に 半生 


思 プ フロ シー ジャ と は 


間 サ ブル ー テ チン ・ プ 


ロロ シー ジャ 


OB 上 で プロ シー ジャ を 作る 際 の 注意 点 


引 数 渡し 


央 参 早 に よる 引数 渡し 
嗣 配下 デー タ を 渡す 


加 ロ ー カ ル 変 数 


胃 文章 変換 プロ グラ ム 
ll 関数 プロ シー ジャ 
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加 う 3 サイ スズ ・ デ ー タ の ソー ト 


再帰 的 プロ シー ジャ ーー RW 昌和 


m 障 乗 を 再帰 で 記述 する と 


間 ハ ノイ の 塔 
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本 
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主 WINDOW と VIEW 
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昌 球 と 平面 


. 次 元 グ ラフ ィ ッ クス に 挑戦 
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可 
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Quick BASIC が 創る 
新しい パソ コン ・ ラ イフ 





Microsoft 社 がら 提供 され る Ouick BASIC は , 統 
、 合 開発 環境 と 構造 化 と いう 2 つの 強力 な 武器 を 持つ だ 新 
_ レ しい タイ プ の BASIC で す -. 
OUuick BASIC と いう 強力 な 道具 (ツー ル ) を 使 つて , 
新しい パソ コン ・ ラ イフ を フリ エイ ト し て み ま せ ん が . 








1. BASIC の 普 震 


員 フ プロ グラ ミン グ 言 語 BASIC 


人 間 と 人 間 が 話 を する に は 「 こ と ば 」 を 使い ます . 日 本 人 同士 で 話 を する に 
は 日 本 語 を 使え ば よい の で す が , 外国 人 と 話す に は た と えば 英語 な ど で 話 を し 
な けれ は なり ま せん 。 

人 人間 が コン ピュ ー タ と 話 を する 場合 に も , 同様 に 「 こ と ば 」 が 必要 で す . こ 
の よう な 「 こ と ば 」 を 「 プ ログ ラミ ング 言語 」 と 呼ん た で いま す . 人 間 が 話す 「 こ 
と ば 」 に も , 日 本 語 , 英語 , ドイ ツ 語 な ど が ある よう に ,「 プ ログ ラミ ング 言語 」 
に も いろ いろ な も の が あり ます . 

代表 的 な も の に COBOL( コ ボル ), FORTRAN (フォー トラ ン ),C( シ ー)、 
Pascal( パ スカ ル ), Prolog( プ ロロ グ ), そし て BASIC( ベ ベーシック) な ど が あり 
ます . これ ら の 言語 に は それ ぞ れ 一 長 一 短 が あり , どの 言語 が よい か は 一 概 に 
は いそ えま せん 。 だ だ 大 型 コ ンピュータ の 世界 で は COBOL が 最 も ゎ も 多く 使わ れ て 
お り , パソ コン の 世界 で は BASIC,。C な ど が よく 使わ れ て いま す . 

本 書 で は BASIC を 勉強 する わけ で す が , BASIC は その 名 の と お り 。 初心 者 が 
学ぶ に は 最も わか りや すい 言語 で す . BASIC と いう 名 前 は , Beginner's All- 
Durpose Symbolic Instruction Code の 頭 文 字 か ら つ けら れ ま し た . 


因 征 米 型 BASIC の 限界 

DBASI じ は , 1964 年 に アメ リカ の ダー トマ ス 大 学 で 初心 者 向き の 会 話 型 言 語 と 
し て 開発 され , 当初 は 汎用 コン ピュ ー タ の TSS (タイ ム ・ シ ェアリング ・ シ ス 
テム ) 用 言語 と し て 生徒 の 学習 用 に 使わ れ て いま し た . 汎用 機 の レベ ル で の 
BASIC じ は, 決し て 陽 の あたる 道 を 歩ん た で きた と は いそ えま せん が 。 1975 年 に ビ 
ル ・ ゲ ー ツ (Bill Gates) が パソ コン 用 に 移 殖 し て 以来 , パソ コン の 主要 言語 と 
し て 一 路 脚 光 を 浴び , パソ コン の 急激 な 普及 と と も に , コン ピュ ー タ 言語 の 中 
で 確実 に 市 民権 を 得る に いた り ま し た . 

この よう な 背景 に は , パパ ソコ ン ・ メ ー カ ー が 当初 BASIC し か 提供 し な か っ た 
こ と, BASIC の 持つ 使い や すさ , 親しみ や すさ , 曖昧 さき など の ユー ザ ・ フ レン 
ドリ な 環境 が 初心 者 に 歓迎 され た こと な ど が あり ます . 

し か し , コン ピュ ー タ 言語 の 中 か ら BASIC を みた 場合 。 言語 仕様 的 に は 決し 
て 優れ た も の で ある と は いえ そえ ま せん. た と えば , ブロ ッ ク 構 造 が な ない, 近代 的 
流れ 制御 構造 が 完備 され て いな い , デー タ 型 が 豊富 で な い , モ ジュ ー ル 化 が で き 
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な いな どの 点 で す 。 構造 化 プ ログ ラミ ング と いう 概念 か ら み る と 。 ここ に 
BASIC の 限界 が ある と いえ ます. 





員 登 租 Oulck BASIC 


この よう に 構造 化 プ ログ ラミ ング と いう 考え 方 か ら す る と , BASIC は いく つ 
か の 致命 的 な 欠陥 を 持っ て いま す . その た め , 実務 レベ ル ユ ー ザ の BASIC 離 れ 
が か な り 進 み 。 パソ コン 用 言語 の 主流 は C 言 語 へ 向い て いる よう で す . 

こう し た 状況 に お いて , Microsoft か ら Quick BASIC と いう 処理 系 が 発表 さ 
れ ま し だ 。 Quick BASIC は , 


1 . 統合 開発 環境 
2. ブロ グラ ム の 構造 化 


と いう 2 つの 強力 な 武 益 を 備え た 新 世 代 言 語 で す . 

と ころ で , 世の中 に は 万 能 な 言語 な ど は あり ませ ん . C に は C の ,。 Pascal に は 
Pascal の , BASIC に は BASIC の よさ が あり , また 欠点 も ある の で す . 

BASIC の 持つ 使い や すさ , 親しみ や すさ と いっ た ユー ザ ・ フ レン ドリ な 環境 
の 上 に 立ち , BASIC の 構造 化 を 考え る な ら , そこ に は Pascal や C の 環境 と は 異 
な る 別 の 世界 が 広がっ て ゆく の で は な いで し ょ うか . 

従来 型 BASIC の 旗 色 が 悪く な っ て き て いる 状況 に あっ て , Quick BASIC は 
新しい BASIC の 道 を 切り 開い て ゆく 可能 性 を 持っ た 言語 と いえ ます . 








/. 新 世代 言語 OUICK BASIC 


時 Oulck BASIC が 提供 する 統合 開発 環境 


最近 の プログ ラミ ング 開発 環境 の 1 つの 流れ は , TURBO Pascal. TURBO 
じ で すっ か りお な じみ に な っ た 統合 開発 環境 と いう 方 式 で す . Quick BASIC も 
この 統合 開発 環境 を 提供 し ます . 
一 般 に コン パイ ラ 系 の 言語 を 用 いて プロ グラ ム を 作る 場合 . 

1. エディ タ に よる ソー ステ キス ト の 作成 

NT ルル 

の 。 リリ ング 
と いう 3 段階 の 処理 を 各 シ ステ ム ・ プ ログ ラム (エディ タ 。 コン パイ ラ .。 リン 
み カ ) を 起動 し て , 逐次 行わ な けれ ば な り ま せん . 


フ 6 ロ ケラ ム 
の 介 季 





ンス テム ・ ブ ログ ラム は 比較 的 大 き な ソ フト な の で , 起動 する の に 多少 時 間 
が か か り ま す . し た が っ て プロ グラ ム 開 発 中 に エラ ー が 発生 し , 各 ス テッ プ を 
何 回 も や り 直 す よ うな 場合 は , この 時 間 が ば か に な ら ず , イラ イラ の 原因 と な 
り ま す . 
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| 


ーー エディ タ 


| 私 達 は まず プロ グラ ミン グ の 原案 を 紙 に 書き ます (中 に は 書か な い 人 も いる )』| 
次 に エディ タ と 呼ば れる シス テム ・ プ ログ ラム を 起動 し , キー ポ ボード か ら こ の 
ソー ス ・ プ ログ ラム を コン ピュ ー タ に 打ち 込み ます . エディ タ は 打ち 込ま れ た 


プロ グラ ム を 単なる 文字 列 ( 文 章 ) と し て 扱い ます . こう し て 作ら れ た 文 意 を テ 


キス ト と 呼び ます . この テキ スト に 打ち 間違い が あれ ば 必要 な 修正 を 行い 。 で | 
き あ が っ た も の を ディ スク に ファ イル (テキ スト ・ フ ァイル ) と し て セー ブ し ま | 


す . これ が エディ タ の 主 な 仕事 で す . つま り エ ディ タ は ワー プロ と 同じ よう な 
も の と 考え で よい の で す 。 


(Quick BASIC の エディ タタ は, こう し た 普通 の エディ タ 機 能 の 他 に , BASIC の 


文法 を チェ ッ ク す る 自動 構文 チェ ッ ク 機 能 を 持っ て いま す . 


ckiGk BASAC し で は エディ タ 。 オン タブ リタ 。 コロ ウッ ノ パイ ラテ 。 リン シンカ 、 デ バッ が 
を すべ て 1 つの 統合 環境 で 提供 し ます . 
し た が っ て QB と いう シス テム ・ プ ログ ラム を 一 度 起 動 し て お くだ け で 。. 


. エディ タ に よる ソー ス ・ プ ブロ グラ ム の 作成 
,。 イン タブ リタ に よる 文法 チェ ッ ク と 実行 
5 2M 了 を ま 


。 コンパ イル ノリ ンク に よる 実行 可能 ファ イル の 作成 


(OF「[O 


な どど を, ブル ・ ダ ウン (ドロ ッ プ ・ ダ ウン ) メ ニュ ー か ら 選 択 す る と いう 簡単 な 
操作 で , 高速 に 処理 する こと が で きま す . 
Quick BASIC に よる プロ グラ ミン グ 開 発 の 画面 を 次 に 示し ます . 


e Quick BASIC の 統合 開発 環境 






C/ 関 数 





F/ フ ァイル 





S/ 検 索 D/ テ " ハ " ラ 2 


| =--/* ダイ アモ ンド ・ リン グ */ー 


E/ 編 集 V/ 表 示 





H/ ヘ ルフ " ( E ・1 ) 


|1SCREEN 0: CLS 
WINDOW (-320, -200)-(320, 200) 






C/COMMANDS 入 カカ ... 





N = 16 | 双 /EXE フ ァイル 作 成 ... 
Angle = (360 /N) * 3.14159 / 18|| L/ ラ ィ イフ “うり 作 成 ... 
R = 150 
M/ メイ ン モ シ ゾ ュー ル の 設定 ..< 

FOR Kk = 0O TON- 2 コ 攻 

X] = R * COS(K * Anq1e ) 

Y] = R * SIN(K * Ang1e ) 

FOR ]=kK+ 1 TON- 1 

Xx2 = R * COS(] * Anq1e ) 


Y2 = R * SITN( ] * Anq1e) 
LINE (x1,。 1)-(x2, Y2), 3 


PD ah ap cp sp ロト 





ーーーーーーーーーーーーーーーー ぅ "イレ クト モー ト -~ 





| 2* ロ "ラム を 実行 C 00001:001 
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コン バイ ラ と イン タプ リタ ーーーーーーーー 


ーー 


私 達 は BASIC の 命令 で 「IF A=0 THEN」 な ど と 書き ます . これ は ,。 も し 
A が 0 な ら と いう 意味 で す が , この まま で は コン ピュ ー タ は 理解 し て くれ ませ 
ん . この よう な ブロ グラ ム 命 令 を コン ピュ ー タ に 理解 させ る た め に ,。 コン パイ 
ラ ま た は イン タプ リタ を 使い ます . 
コン パイ ラ は , プロ グラ ム を 全体 に わた っ て 一 括 解釈 し , コン ピュ ー タ が 理 
謙 で きる 機械 語 コ ー ド (これ を リロ ケー タブ ル ・ オ プ ブ ジ ェクト と いう ) に 翻訳 し 
ます . そし て リン カ を 使っ て 必要 な ライ ブラ リ を 結合 し , 完全 な 機械 語 コ ー ド 
(これ を 実行 可能 オプ ジェ クト と いう ) を 生成 し ます . こう し て で き あ が っ た 実 
行 可能 オブ ジェ クト を コン ピュ ー タ に か ける の で す . 








これ に 対し イン タプ ブリ タ は ,。 ソー ス ・ プ ログ ラム を 1 行 ず つ 読 み 取 り 。 その 
意味 を 解釈 し それ を 実行 する た め に イン タプ リタ 内 に 組み 込ま れ た サブ ルー 
パチ ン を コー ル し な が ら , ソー ス ・ ブ ログ ラム の 実行 を 逐次 行っ て いき ます . 





RASIC76p23A を へ 
- 符 単 全 で コ +E4-7 に | 
、 理 区 +t3 光 訳 “3 








時 ブロ グラ ム の 構造 化 

構造 化 ブ ログ ラミ ング と いう 考え 方 は 。 オラ ンダ の E.W. デ ィ ク スト ラ (E. 
W. Dijkstra) と いう 人 が 提唱 し た プロ グラ ミン グ の 方 法論 で , 明確 な アル ゴリ 
ズム と デー タ 構 造 の 上 に 立ち , 近代 的 流れ 制御 構造 だ け を 用 いて プロ グラ ミン 
グ す る こと に より , 生産 性 が 高く , 信頼 性 の 高い プロ グラ ム を 作ろ うと いう も 
の で す . 

Quick BASIC が プロ グラ ム の 構造 化 を 目指 す 上 で 実現 させ た 新しい 機能 に 
は 。 次 の 4 つの 大 き な 柱 が あり ます . 


1. ブロ ッ ク 概 念 の 導入 

ブロ ッ ク 概 念 の 導入 に より , IFーTHEN ELSE の THEN 節 。 ELSE 節 に 複 
数 の 文 を 赴く こと が で きる よう に な り ま し た . その た め , GOTO で 他 の 場所 へ 
飛ば す 必 要 が な く な り ま す . 


2 . 近代 的 流れ 制御 構造 の 補強 
DOーLOOP, SELECT CASE 文 な どの 近代 的 流れ 制御 構造 を 補強 し , 構造 的 
で 見 や すい GOTO レ スプ ログ ラム を 可能 に し まし た . 


3 。 モジ ュー ル の 導入 

SUB, FUNCTION 文 で 定義 し た サブ ・ ル ー チ ン と 関数 は ,。 モジ ュー ル と し 
て 扱わ れ ま す . モジ ュー ル 間 の デー タ 授 受 は 引数 渡し と いう 汎用 的 な 方 法 で 行 
い , モジ ュー ル 内 の 変数 は ロー カル 変数 と し て 扱わ れる の で , C の 関数 の よう に 
独立 性 の 高い モジ ュー ル を 作る こと が で きま す . 

まだ た , これ ら を ライ ブラ リ と し て 他 の プロ グラ ム で 利用 する こと が で き 。, 次 
源 の 有効 利用 が 行え ます . 


4 . デー タ 型 の 強化 
し 。 Pascal. COBOL し な ど で 使 える レコ ー ド 型 を サポ ー ト し ます . も 。 肌 we 語 
リ , デー タ 構 造 を 明確 に 表現 する こと が で きま す . 


ブロ グラ ム の 構造 化 に つい て は 第 7 章 で 詳し く 説明 し ます . 


第 1 章 Quick BASIC が 創る 新しい パソ コン ・ ラ イフ 


3.0UlCk BASIC を 動 ガ 9 た め に 揃え る も の 


現在 Quick BASIC は , IBM/AX と NEC PC-9801 で 走る も の が 提供 され て い 
ます が , 本 書 で は NEC PC-9801 版 を 対象 に 説明 し て いき ます . 


ハー ドウ ェ ア 
本 体 :NEC PC-980!| シ リー ズ ( た だ し XA・LT お よび XL・XLZ の 
ハイ レゾ リュ ーション ・ モ ー ド を 除く ) 

メモ リ : 640KB 

フロ ッ ピ ー デ ィ ス ク ・ ド ライ プ : IMB タ イプ (3.5Z2HD, 572 
HD, 872D) が 望ま し い が 640 
KB タイプ (3.5/2DD, 5/2DD) 
で も 可 

ハー ド デ ィ スク : な く て も よい が ある と 便利 

マウ ス : な く て も よい が ある と 大 変 便利 


ソン フトウェア 
0 S : MS-DOS Ver.2.0 以 上 
言語 : 0uick BASIC Ver.4.2 





メモ リ は 最低 で も 640KB 必 要 で す . キャ ッシュ ディ スク や RAM デ ィ ス ク を 
使う こと を 考え れ ば , 1 MB 以 上 増設 し て お く と 便利 で す . フロ ッ ピ ー デ ィ ス ク 
は , 640KB タ イプ で は シス テム が 1 枚 の フロ ッ ピ ー に の ら な いた め , 1 MB タ イ 
プ が 望ま し いで し ょ う . 

ハー ド デ ィ スク と マウ ス は な く て も よい の で す が , 統合 開発 環境 の メニ ュー 
は マウ ス 対 応 に も な っ て いる の で , マウ ス が あれ ば 大 変 便利 で す . 

Quick BASIC は MS-DOS 上 で 動作 し ます の で , Ver.2.0 以 上 の MS-DOS を 用 
意 し て くだ さい 、。 


ss ご 


上 L っ たっ 上 


w。 。 ( 
めく 「 
"。 
に すま も 
- さ ーー" 3 
息 1 
ます # 
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が っ し 。。J 
- 和 を 
5 "を べ 
は ! 
を ま 
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に に 選 
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まま 
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唱 草 


セッ ト ・ ア ッ プ 
Quick BASIOC 





Ouick BASIC シ ステ ム を 購入 し て も , その まま で は 
走ら せる こと が で きま せん . 
MS-DOS シ ステ ム と Quick BASIC シス テム の 中 
ガ ら 秘 要 な も の を 選ん で 1 枚 の ディ スク に まとめ , 自分 
専用 の OUuick BASIC シ ステ ハム ・ デ ィ ス ク を 作り まし よ 
の 2 


P 


], 提供 され る ソフ トウ ェ ア 


昌 シ ステ ナム ム を 催 認 し て くだ さい 


Quick BASIC を 購入 する と , 2 枚 の シス テム ・ デ ィ ス ク と 4 冊 の マセ マニュアル 
が つい て きま す . 





Quick | - Guick 
EAC BASIC 
0 User< Guide 用 | っ tatement 明 
| ( ] Funcion 
uick BA5IC り 





ン ム イム 合 4 ス 7 


KO 了 | レ 


さっ そく どん な シス テム ・ フ ァイル が ある か 確認 し て くだ さ い . 


コマ ンド 概要 
B : 





Ouick BASIC A>DIR..B * プン | 


第 草 セッ ト ・ ア ッ プ Quick BASIC 


@ プ ログ ラム ・ デ ィ ス ク 
ドラ イプ A: の ディ スク の ボリ ュー ムラ ベル は @QB42_NO1 
プン ルッ レツ ドサ - は ag 
QB _ENV く DIR> 88-12-15 4s20 統合 環境 ディ レク トリ 
QB CMP く DIR> 88-12-15 4s20 コン パイ ラ ・ デ ィ レ クト リ 
LIB E く DIR> 88-12-15 4:20 一 ライ ブラ リ ・ デ ィ レ クト リ 
SETUP DOC 2763 88-12-15 4s20 一 セッ ト ア ッ プ の 説明 
SETUP EXE 30198 88-12-15 4:20 一 セッ ト ア ッ プ ・ ユ ー テ ィ リ ティ 
PACKING  LST 3242 88-12-15 4s20 一 パッ キン グ ・ リ スト 
README DOC 8457 88-12-15 4:20 一 最新 情報 ファ イル 
SAMPLE DOC 4043 88-12-15 4s20 一 サン プル プロ グラ ム の 説明 


8 個 の ファ イル が あり ます . 
175104 バイ ト が 使用 可能 で す . 
統合 開発 に 関す る シス テム 


ドラ イプ A: の ディ スク の ボリ ュー ムラ ベル は @QB42_NO1 
ディ レク トリ は A:\QB_ENV 


く DIR> 88-12-15 4:20 
Se <DIR> 88-12-15 4:20 
MOUSE COM 8431 88-12-15 4:20 一 マウ ス ・ ド ライ バ 
MOUSE SYS 8127 88-12-15 4:20 一 マウ ス ・ ド ライ バ 
QB BI 1783 88-12-15 4:20 一 Ouick BASIC ヘ ッ ダ ファ イル 
QB EXE 284170 88-12-15 4:20 一 Ouick BASIC 本 体 
QB HLP 60519 88-12-15 4:20 一 ヘル プ ・ フ ァイル 
QB INI 48 88-12-15 4:20 一 イニ シャ ル ・ フ ァイル 
QB PIF 369 88-12-15 4:20 一 MS-WINDOWS2.0 用 Picture File 
9 個 の ファ イル が あり ます . 
175104 バイ ト が 使用 可能 で す . 
マコ ン バ イ ラ に 関す る シス テム 
も ライ ブ プ A: の ディ スク の ボリ ュー ムラ ベル は GQB42_NO1 
ディ レク ト リ は A:\QB_CMP 
く DIR> 88-12-15 4:20 
8 く DIR> 88-12-15 4:20 
BC EXE 110743 88-12-15 4:20 一 BASIC コ ン パ イラ 


BRUN42A EXE 88539 88-12-15 4:20 一 ラン タイ ム モ ジュ ー ル 
BRUN42E EXE 89328 88-12-15 4:20 一 ラン タイ ム モ ジュ ー ル 
LIB EXE 35211 88-12-15 4:20 一 ライ ブラ リ ・ マ ネジ ャ ー( ラ イブ ラリ アン ) 
LINK EXE 65539 88-12-15 4:20 一 リン カ 
7 個 の ファ イル が あり ます . 
175104 バイ ト が 使用 可能 で す . 


マラ イプ ラリ 


本 ライ プ A: の ディ スク の ポリ ュー ムラ ベベ ル は は QB42_NO1 
ディ レク トリ は Ax:\LIB_E 


く DIR> 88-12-15 4:20 
2 く DIR> 88-12-15 4:20 
BCOM42E LIB 234477 88-12-15 4s20 一 スタ ンド アロ ン ・ ラ イブ ラリ 
BRUN42E LIB 25241 88-12-15 4:20 一 分 離 型 ラ イブ ラリ 
4 個 の ファ イル が あり ます . 
175104 バイ ト が 使用 可能 で す . 





@ ラ イブ ラリ & サ ンプ ルプ ログ ラム ・ デ ィ ス ク 
ドラ イブ A: の ディ スク の ボリ ュー ムラ ベル は GQB42 NO2 
デー イレ ンク ノド り は た >\ 
LIB A く DIR> 88-12-15 4・20 
SOURCE く DIR> 88-12-15 4:20 
2 個 の ファ イル が あり ます . 
820224 バイ ト が 使用 可能 で す . 
ヤラ イブ ラリ 
ドラ イブ A: の ディ スク の ボリ ュー ムラ ベル は GQB42 NO2 
デイ ルレ ルッ クー トリ は AX\LIB A 
<DIR> 88-12-15 4:20 
5 <DIR> 88-12-15 4:20 
BCOM42A LIB 238895 88-12-15 4x20 一 スタ ンド アロ ン ・ ラ イブ ラリ 
BQLB42 LIB 25301 88-12-15 4s20 --OLB 構 築 ラ イブ ラリ 
BRUN42A LIB 25241 88-12-15 4:20 一 分 離 型 ライ ブラ リ 
QB LIB 2075 88-12-15 4:20 ライ ブラ リ 
QB QLB o784 88-12-15 4:20 一 Ouick ラ イブ ラリ 
7 個 の ファ イル が あり ます 。 
820224 バイ ト が 使用 可能 で す . 
マサ ンプ ルプ ログ ラム 
ドラ イブ A: の ディ スク の ボリ ュー ムラ ベル は GQB42 NO2 
ディ レク トリ は Az:\SOURCE 
<DIR> 88-12-15 4:20 
ま く <DIR> 88-12-15 4:20 
BAR BAS 6331 88-12-15 4:20 
CAL BAS 5595 88-12-15 4:20 
CCALL BAS 955 88-12-15 4:20 
CCALL C 100 88-12-15 4:20 
CCALL QLB 5351 88-12-15 4:20 
COLOR BAS 1019 88-12-15 4:20 
CRLF BAS 4441 88-12-15 4:20 
CUBE BAS 1413 88-12-15 4:20 
DISPLAY BAS 1829 88-12-15 4:20 
DRAw BAS 2376 88-12-15 4:20 
EDIT BAS 8675 88-12-15 4:20 
EDIT B 1 1308 88-12-15 4:20 
EDPAT BAS 6667 88-12-15 4:20 
GET BAS 842 88-12-15 4:20 
HANO1 BAS 1289 88-12-15 4:20 
INDEX BAS 10366 88-12-15 4:20 
MANDEL BAS 5560 88-12-15 4:20 
PALETTE BAS 1797 88-12-15 4:20 
PSETBALL BAS 3000 88-12-15 4・20 
QBL BAS 6902 88-12-15 4:20 
QLBDUMP BAS 2783 88-12-15 4# ゞ 20 
SEARCH BAS 3028 88-12-15 4:20 
SIERP BAS 2119 88-12-15 4:20 
SINWAVE BAS 1130 88-12-15 4:20 
STRTONUM BAS 999 88-12-15 4:20 
STYLE BAS 387 88-12-15 4:20 
TERMINAL BAS 1343 88-12-15 4:20 
WHEREIS BAS 5453 88-12-15 4:20 
ABSOLUTE ASM 4520 88-12-15 4:20 
INTRPT ASM 15099 88-12-15 4:20 
32 個 の ファ イル が あり ます . 
820224 バイ ト が 使用 可能 で す . 
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間 主要 ソフ ト の 分 類 
(Quick BASIC が 提供 する ソフ トウ ェ ア の 主 な も の を , 機能 別に 分 類する と 以 
事 の よう に な り ま す . 


表 2-1 Quick BASIC 統 合 開発 環境 QB 
ナァ ギル 者 、: _ 機 
OB.EXE_ dE Quick BASIC 本 体 . エディ タ , プリ タ ,。 デバ ッ ガ 内 蔵 
OB.HLP ヘル フ ・ フ ァイル 

QB .INI | 画面 の 初期 化 情報 ファ イル 
_QB.BI QB. QLB(Quick ラ イブ ラリ ) 用 イン クル ー ド ファ イル 





表 2-2 BASIC コ ン パ イラ BC | 













ファ イル 名 に 時 
_BC.EXE 。 | BASC コ ン パ イラ 

LNK.EXE リン カ 

LIB.EXE | ライ ブラ リ ・ マ ネジ ャ ー( ラ イブ プラ リアン) 


BRUN42A.EXE | ラン タイ ム ・ モ ジュ ー ル (代替 え 数値 演算 版 ) 
BRUN42E.EXE | ラン タイ ム ・ モ ジュ ー ル (80287 エ ミュ レー ト 上 太 ) 





表 2-3 ライ ブラ リ 
ラ ァ イル 名 | ・ 
BRUN42A.LIB | ラン タイ ム ・ ラ イブ ラリ (代替 え 数 値 演算 版 ) 
BCOM42A.LIB | スタ ンド アロ ン ・ ラ イブ ラリ ( 7 
BRUN42E.LIB | ラン タイ ム ・ ラ イブ ラリ (80287 エ ミュ レー ト 版 ) 
BCOM42E.LIB | スタ ンド アロ ン ・ ラ イブ ラリ ( / 
OB.QOLB " | ディ フォ ルト の Quick ラ イブ ラリ 
OB.LIB ディ フォ ルト の ライ ブラ リ 





表 2-4 その 他 
ファ イル 名 ポ を " 
SETUP.EXE | Ouick BASIC の セッ ト ア ッ プ ・ ユ ー テ ィ リ ティ 


_MOUSE.COM | マウ ス ・ デ バイ ス ・ ド ライ バ ( 常 駐 / 非 常駐 型 ) 
_MOUSE . SYS マウ ス ・ デ バイ ス ・ ド ライ バ ( 組 み 込 み 型 ) 














7. OUICK ツ ステ ム ・ デ ィ ス ク を 作る 前 に 


昌 統 合 開発 境 こ コ ン パ イラ 


提供 され る Quick BASIC の シス テム ・ デ ィ ス ク の 中 に は , 統合 開発 環境 QB 
こと BASI じ し コンパ イラ BC の 2 つの シス テム が 入っ て いま す . 

統合 開発 環境 は Quick BASIC の 基本 シス テム で , QB.EXE を 本 体 と し . この 
中 に エディ タ , イン タプ ブリタ, デバ ッ ガ が 内 蔵 さ れ て いま す . 1 度 QB を 起動 す 
れ ば , ブル ・ ダ ウン ・ メ ニュ ー 方 式 で 各 処 理 を 高速 に 行う こと が で きま す . 

QB は 基本 的 に は イン ター プリ タ で す . し か し プル ・ ダ ウン ・ メ ニュ ー か ら 
DBASI じ コン パイ ラ BCEXE と リン カ LINK.EXE を 自動 的 に 呼び 出し 。 実行 可 
有馬 ファ イル (.EXE) を 生成 する こと も で きま す . 

BC.EXE, LINK.EXE は 従来 の コン パイ ラ 処 理系 と 同様 に 。 コマ ンド ライ ン 
か ら コ ン パ イル ノリ ング 処理 を 行う ) こ と も で きま す . 






QE は 谷間 発 理 天 へ 
1 QS.EX た み 中 に 工 下 47 1 
人 に 97997. だ が ッ が が 
内 蔵 + れ て いま は 












/ 5CIA J コ > ハツ 3. メス 7 ん で 
6C ExE( ユ > ツラ ) 
LTMK、ExE (りり * カ ) 
「 4 ラリ が 必 叶 で ス 







置 ラ イブ ラリ に つい て 


Quick BASIC じ の コン パイ ラ (BC.EXE) プリ ンカ (LINK.EXE) で 利用 する 
ラフ ライブ ラリ は , 


・ 生 成す る 実行 可能 ファ イル の タイ プ 
・ 致 値 演算 コ ・ プ ブロ セッ サ (8087 プ 80287) の 使用 の 有無 


の 違い に より , それ ぞ れ 次 の よう に 異な る ライ ブラ リ を 使い ます . 
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表 2-5 コン バイ ラ 用 ライ ブラ リ の 種類 


コ ・ プ ロ セ ッ サ 2 すま 
代替 数 値 演算 08/0007 和 さろ ト 


BCOM42A.LIB BCOM42E .LIB 
BRUN42A.EXE BRUN42E . EXE 
BRUN42A.LIB BRUN42E .LIB 





ラン タイ ム 分 離 型 





スタ ンド アデ アロン 型 の EXE フ ァイル は 単独 で 動作 し ます が , ラン タイ ム 分 離 弄 
の EXE フ ァイル は 実行 時 に ラン タイ ム ・ モ ジュ ー ル (BRUN42AIEXE ま た は 
BKRUN42EEXE) を ロー ド し , この モジ ュー ル の 協力 下 に お いて 動作 し ます . 

代替 数 値 演算 ライ ブラ リ は , 数 値 演算 コ ・ プ ロ セ ッ サ を 使用 せ ず に 数 値 演算 
を 行い ます . 8087/80287 エ ミュ レー ト ・ ラ イブ ラリ は , 数 値 演算 コ ・ プ ロ セ ッ 
サ を 使用 し て 数 値 演 算 を 行い ます . 

統合 開発 環境 QB で は 一 般 に ライ ブラ リ を 必要 と し ませ ん が , QB.QLB, QB. 
LIB な どの ライ ブラ リ を 使用 する こと も で きま す . 


コ ・ プ ブ プロセッサ と は CPU が 行う べき 処理 を 肩代わり し て , CPU と 協力 し 合い 
な が ら 処 理 を 進め て いく プロ セッ サ の こと で す . 数 値 演算 コ ・ プ ロ セ ッ サ は , 


数 値 演算 に 関し て CPU の 肩代わり を する た め の プ ロモ セッ サ で , イン テル 社 の | 


8087/80287 と いう IC が 有名 で す . 


Quick BASIC の 8087/80287 エ ミュ レー ト ・ ラ イブ ラリ は , 8087 ノ 80287 が コ 
| ンピュータ に 実装 きれ て いる と き は 数 値 演算 処理 を 8087/80287 に まかせ , も 』 
| し 実装 され て いな けれ ば 8087 ノ 80287 と 同じ 処理 動作 を ライ ブラ リ が エミ ュ レ 


ー ト する も の で す . 





3. OUICK ツ ステ ム ・ デ ィ ス ク の 作成 


(Quick BASIC を 動か す た め に は , 1 枚 の フロ ッッ ピー ディ スク に MS-DOS シ 
ステ ム と (Quick BASIC シス テム を の せま す . 2 つの シス テム の ファ イル を すべ 
て の せる こと は で きま せん の で 。 必要 な も の だ け を 選ん で コピ ー し ます . 





ーm 中 分 の Quick 6AOC 
が スイ - > 人 TO ・ 務 ん 7 


MS - DO0S 





0 
Quick BASIC 


な お , 使用 し て いる ディ スク の 種類 (IMB フ ロッ ピー, 640KB フ ロッ に ュー。 
ハー ド デ ィ スク な ど ) に より , の せる こと が で きる ファ イル の 量 や , ディ レク 
トリ 構造 が 若 十 異な り ま す . 

以下 に 1MIB フ ロッ ピー (572HD, 8/2D) の 場合 の Quick BASIC シ ステ ム 、・ 
ディ スク の 作成 例 を 紹介 し ます . 


員 MS-DOS シ ステ ム の コピ ー 


コマ ンド 概要 
A>FORMAT_JB : グ S。 





MS-DOS シ ステ ム を ドラ イブ A, これ か ら シ ステ ム を 転送 する ディ スク を B 
に 直 き , FORKMAT コ マン ド に より , ドラ イブ B の フォ ー マ ッ ト と MS-DOS シ 
ステ ム の コピ ー (ププ S ス イッ チ ) を 行い ます . 
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A>format b:/s 
Format Version 4.10 


親しい ディ スク を ドラ イブ B: に 挿入 し 

どれ か キー を 押し て くだ さい 

ーー スン が だ グイ ナチ は 1 > 640(KB) 2 : 1(HB) = 2 
目的 の ディ スク は 1MBFD で す 


フォ ー マ ッ ト が 終了 し まし か た 
すま 0 の 0 きり ーー せこ 6 は 人 20 8 ご 人生 な 3406 


ンス テム を 転送 し まし た 
1250304 バイ ト 


人 生 デ ィ ス ク 容 
120832 バイ ト ンス テム 領域 
1129472 バイ ト 使用 可能 ディ 


1 
スク 容量 


別 の ディ スク を を フォーマット し ます か が (〈Y/N) n・ 


員 MS-DOS フ ァイル の コピ ー 


コマ ンド 概要 
自分 の ディ スク A>COPY_ filename.typ_B: 


| 


コピ ビー する ファ イル 名 








MS-DOS の 外部 コマ ンド の 中 で 必要 な も の を コピ ー し ます -. 日 本 語 辞 書 は 1 
枚 の Quick BASIC じ シス テム ・ デ ィ ス ク 上 に は の ら な い の で , 別 の ディ スク ( ド 
テオ イブ プ B) に の ぜ せる こと に し ます , 





A>COpY fOrmat.eXe b: 
1 個 の ファ イル を コピ ビー し まし た . 


A>copy dump.exe b: 
1 個 の ファ イル を コピー し まし た 。 


A>COpY DFTint.SyS b: 
1 個 の ファ イル を コピ ビー し まし た .. 


時 GE 上 「 UP ユー ティ リティ に よる Ouick シ ステ ム の コピ ー 


A> SETUP「 





Quick BASIC の プロ グラ ム ・ デ ィ ス ク に 入っ て いる SETUP ユ ー テ ィ リ ティ 


(SETUP.EXE) を 用 いれ ば , Quick BASIC シ ステ ム を 簡単 に 自分 の ディ スク 
上 に セッ ト ア ッ プ する こと が で きま す . 


A>SETUP 


Qu icCkBAS 』】C セットアップ ユー ティ リティ 人 こ まま こっ 和 6 


和香 と (1/3 ) 
⑨ フ ロッ ピー ディ スク ヘ へ セッ トト アップ する 場合 、 フ ォ ー マ ッ ト 済 み の デ ィ ス ク を 用 意 し 
も: ぐだ. 寺 tvj 
[フロ ッ ピ ビー ベー ス で QuickBASIC ぇ ああ 
あら か じ め フ ォ ー マ ッ ト 済 み の デ ィ ス ク すす を 
メデ ィ ア の タイ ププ に よっ て 必要 な ディ スク の 枚数 ヵ が 穫 な り ま す 。 
ワー ク デ ィ ス ク に は FORMAT /S スイ ッ チ で MS-DOS シ ス テ CA 
下さ い 。 システム が 転送 され て いな い 場 合 は セッ ト ア ゾ ッ プ は お こ な わ れ ま せ 
・HD タ イプ (3.5 2HD, 5 2HD) の 場合 
1 枚 : ワ ー ク ディ スク 
* DD タイ ププ (3.5 2DD,。 5 2DD) の 場合 
3 衝 に に ワーク ディ スク ここ コン バイ ラジ ディッ ズ メ ク 
(FORMAT /9 で 720K フ フォー マッ ト に し て お く 〈 く 方 が 良い で し ょ う 。) 
フォー マッ ト が 済み まし た ら 添 付 の シー ル (「 ワ ー ク ディ スク 」、「 コ ン バ イ ラディ 
も まい Eb いさ SN SE 
5 
フォ ー マ ッ ト 済 み の デ ィ ス ク が 用 意 し て いな けれ ば 、CTRL*C で セッ ト ア ッ プ を 中 止 し て 
ディ スク の ブフ ォ ー マ ッ ト を 行っ て 下さ い 。 
【 何 か キー を 押し て 下さ い 】 一 何 か キ ー を 押す と 次 の 画面 に 進む 


セッ ト ・ ア ッ プ Quick BASIC 
た - 技 3 本 境 旨 、) 感 
(2/3 ) 


第 と 草 


セッ トト アッ プ ユー ティ リティ 


サン プル プロ グラ ム --- 
ツ サン プル プロ グラ ム を 転送 し ませ ん 。 必要 に 応じ て 転送 を を おこなっ 


2 ん 休 > 4 


い 。 


Qu jic kk BASIC の コン パ . イ ラ (BC.EXE) が 遂 常 利用 する ライ プラ リ は 、 以 下 の る もの 


--- ラ イプ ラリ に つい て --- 
で す 。 


Gu 1 CK お B 信念 を て 


セッ ト 
て 下さ 
BRUN42A.EXE 
BRUN42A.LIB 
BCOM42A.LIB 





NG 
"IS 
の 上 ト 輸 で 1 
の G ベル いい ン 
ャ a 誠人 4 
ロ ご 応 2 Yo , W 
mg 計 の ハ 0  。 い 」 
本 a 和 れ 7 い 要 いじ ー 
で し) 44 で デ ー テ 和 か am へ 
1? ー GS … レ ビレ い 9 中 
9 、 に 0 2 5 で ・ 
連 6 +J ⑪Q で @ ーー りこ 
Go !2 > em 者 か 2 
。 Sg つこ や 2 2 村 い いい ( 和 ト 紅 3 
3 し リヒ 、 ふ し 覆っ 人 器 
3 
ゃ ち ・ ツ 2 P9 NG 上村 し ゃ つ _ う 
飲も 月 つ 9 て で 半 Y 乙 ミ 。 
生計 +) g 07 か で ! ) 。c 
JJ つ 過 名 摘 ルッ 0 て し 和合 い 3ー 人 ト 
回 間 b 526 うろ  。 ふい 回 だ し も ヽ 、 
区 ・ っ し 峰 。 ロロ e 本 衝 。 司 の Ar) 
に で い ぐ 関 へ つり J て 1! 裳 守 wa で My も 
「 ゞ 「J 「 ー SS 〇 「 ロ ' ーーm m。 ささ 
6 4 へ 公 固 ュー く 記 ン ご DON 人 ト と ご ハ へ 回 
こつ 9@ ご 6 と 選 ン ヒビ ヒ 正 や J 和 へり ョ ーー ゴ *・ り ) 
ye 【* 電 0 ・ 人 も KO 
Ed [ 0 2 1 
JJ 補 爺 。 公 で て 3 ェ ーー 
2 『 ER Yo SN あべ コー 
mw mr KJ か 3 er AA ie 
< 頒 G 生ま | た “ ] / - う っ 
中 人 46 | か 2 8 へ 條 の ロ さ Tr 多 で N な 
に oo 軸 q 和 に く 人 皿 や 人 1 い 、 主 < 尼 し へ G ご に 
ロ ム や ピピ 約 ) 記 訓 に | ン 
へ 賜 ビス De / ! 生き 、 220 マ で 4 本 の 婦 ・ Q 9 EAI や ら つつ 
か G つ 飲 慣 p 電 古 雇 A 画 So の oo っ 四 穫 〇 公 つ 寂 
れい 羽 析 心 和 和 G は 移 栓 の ほら 1 煙 RE 〇 や ー ち 中 嘩 
ヾ | 近い 四 軸 っ ろ ea の 人 + 肖 還 ー は の 5 遇 迷 
AS トー っ と 器 SN の ふつ 
招 や 人 邊 か 陣 ヒ バッ 抽 ム N 翌 G い 、 名 ・ 輸 1 マ て KKQ 皿 牙 ヾ 
巡 人 ヘー じじ 訪 。 ピ レ の 3 の ef 0 か つき らい 内 m て 所 定か 
回 や や 1] 《 。 つ な h 1 臣 遇 あく デリ 四 』 JA ご トト oOGー 
坊 下 ロロ へ 1 区 9 DCER ま 9 所 人 o テー ベ KKK 
箇 は mi を お の イー My ーー 。 | っ か や 
0 〇 3 L ^ ェ エー ビー 選 つ っ 填 ee し て 
宰 の s ! 6 ! ロ ー 全 の 〇 ゃ 三 ふ っ 中 室 ハム ご くず fyjyy 
移 志 狼 明 か の 和 。 閉 い Poo の 2 て 〇 び の @ の の の の 
QG 近 に 才 私 。 る コー 」 コ 公 氏 @G 」 @~ ご っ gg マ < 私 稚 硬 
生殖 で 0 ロ 。 屋 ざ |! 〇 づ や 作 の 1 け Bw 神 必 位 心 ピ 
ご 0 口 氷 
は 公 款 こじ いい 過 ご 


COM 


YS) で 、 必 要 に 応じ て 組込み 


モリ 解放 が で きる 為 、 


=-Y と 答え る と SETUP 作 業 が 開始 され る 
で 
す 
で 


( 種類 を 選択 し て 下さ い 。 


YY/N] だ た さ 


の 設定 で よろ し いで すか 


以上 の 操作 に より SETUP ユ ー テ ィ リ ティ は , ドラ イブ B の ディ スク に BIN, 
LIB と いう 階層 ディ レク トリ を 作成 し た 上 で , Quick BASIC シ ステ ム か ら 必 要 
な も の だ け を それ ぞ れ の 階層 ディ レク トリ に コピ ー し ます . 

フロ ッ ピ ー デ ィ ス ク の セッ ト ア ッ プ で は 代替 数 値 演 算 ラ イブ ラリ だ け を コピ 
ー レ し, 8087/80287 エ ミュ レー ト ・ ラ イブ ラリ は コピ ー し ませ ん . 

マウ ス ・ デ バイ ス ・ ド ライ バ は , SET UP 時 の 問い 合わ せ に 対す る 応答 に し 
だ た が っ て , MOUSE.SYS ま た は MOUSE.COM が コピ ー さ れ ま す . 

セッ ト ア デップ し た 状況 に 応じ し て, AUTOEXEC.BAT, CONFIG.SYS が ルー 
ト ・ デ ィ レ クト リ に 自動 的 に 作成 され ます . 


@ セ ッ ト ア ッ プ され た Quick BASIC 





MS-DOS コ マン ド 

AUTOEXEC. BAT ] 

CONFIG. SYS | BCOM42A. LIB 
BRUN42A. LIB 
BOLB42. LIB 
OB. LIB 


MOUSE. COM QB. QOLB 
BC. EXE 

LIB. EXE 

LINK. EXE 

BRUN42A. EXE 





@SETUP に より 作成 され た AUTOEXEC.BAT と CONFIG.SYS 





A>type autoexec.bat 

SET COMSPEC=A :\COMMAND . COM 
SET PATH=A:\BIN 

SET LIB=A:\LIB 

MOUSE 


A>tYDe COnfig.SYS8 
FILES=20 
BUFFERS=20 








第 P 章 セッ ト ・ ア ッ プ Quick BASIC 


4 ツ ソス テム / 寺 境 の 設定 


作成 し た 、 れ か 5 間 攻 33 
Quick BAIC PA5ICAp7545 
>ATL-〒427 (1 万 人 477 


| 還 
9 」 9 


リセ ヤット ス 1 ッ サ 





好 2746f 7 


作成 し た Quick BASIC シ ステ ム ・ デ ィ ス ク を ドラ イブ A, これ か ら 開 発する 
BASI じ ブロ グラ ム を 置く ユー ザ フ ァ イル ・ デ ィ ス ク を ドラ イブ B に 置き , 以後 
Quick BASIC に よる プロ グラ ミン グ 作 業 を 行っ て いき ます . 

も ちろ ん ドラ イブ B の ユー ザ フ ァ イル ・ デ ィ ス ク は , 一 番 最初 に 「FORMA 
1_.B:」 に より フォ ー マ ッ ト し て お か な けれ ば な り ま せん . 





軸 メ モリ の 設定 


Quick BASIC を 動作 させ る た め に は 640KB の メモ リ が 必要 で す . メモ リ が 
足ら な けれ ば , PC-9801 の 機種 に 応じ し て 適当 に メモ リ を 増設 し て くだ さい . 

メモ リ 増 設 を し た 際 に は , MS-DOS の SWITCH コマ ンド を 用 いて メモ リ ・ サ 
イズ の 指定 を 行っ て くだ さい . SWITCH コマ ンド を 行っ た 後 , 一 度 リ セッ ト を 
し て くだ さい . メモ リ の 設定 は 一 度 し て お け ば , それ が 記憶 され て いま す . 


A>switch 
SwITCH Version 2.30 


RS232C-0:1200 BITS-7 PARITY-NONE STOP-1 NONE 
PRINTER :CEN2 4 

MEMORY  :640K 

NDP 1 ・NO 

COLOR ・wHITE 

BOOT ・STD 





-memory[6401] 





な お , メモ リ の 設定 を 行う 場合 は , 
PC-9801 本 体 の ディ ッ プ ・ ス イッ チ 
SW2 の No.5 が ON に な っ て いな け 
れ ば な り ま せん . 








_PO-9801 シ リー ズ の 標準 実装 メモ リー 


ーーー ニ ーー ーー ーー ーー ーー 一 


PC-98 の 各 機 種 に お ける メモ リ の 実装 値 を 示し ます . 





PC-9801 グ E ン F1 ン プン F2 ノ F3 プ 2 トート で reo 128KB 
PC-9801 M2 プ M3 上 tl つ 抄 上 … 上 上 上 上 上 neeteeeeeseesessessecs256KB 
PC-9801 VM0 プ VM2 プ VM4 ブ UV2 ……… の nr384KB 
PC-9801 VX0 プ VX2 ン VX4ーーー ヨ ーー で < の くく ーーocrcc css 640KB 
グ VM11 VM21 プ VX01/VX2 
グ VX41UV21 
ン RX2/RX4 
PC-9801 RA グレ RS yasaivenrKezsNnWrkeike な aeac 1 .6MB 
時 バス の 設定 


Quick BASIC は , 次 の 4 つの MS-DOS 環 境 変数 を 参照 し て 処理 を 行い ま g 記 


表 2-6 MS-DOS の 環境 変数 。 = 生 和 4 
環境 変数 PS と * > う 穫 









再 ロ ー ド する コマ ンド ・ イ ンタ プリ タ の パス 名 を 設定 し て お きま す . 
| COMSPEC 













| Quick BASIC が 0S シ ェ ル (0S に 一 時 的 に 戻る ) する と き に . この 環境 変 | 
数 に 設定 され て いる コマ ンド ・ イ ンタ プリ タ を ロー ド し ます . 
em コマ ンド は カレ ント ディ レク トリ か ら 探 さむ ます が 。 これ 以外 か ら 探 
| す と き の 道筋 を PATH 環 境 変数 に 設定 し ま す 
LB ライ ブラ リ の 検索 パス を 設定 し ます - ー 
TMP | LINK が 作業 用 に 使う テン ポラ リフ ァイル を 置く 位置 を 設定 し ます 






|「 RAM ディ スク が あれ ぱげ , 





そこ に 置く よう に する と 高速 処理 が 行え ます . 









これ ら の MS-DOS 環 境 変数 は , MS-DOS の SET コ マン ド を 用 いて 設定 し ま 
す が , AUTOEXE.BAT フ ァイル の 中 に あら か じ め 指 定 し て お く と 便利 で し ょ 
う .SETIUP ユ ー テ ィ リ ティ は セッ ト ア ッ プ し た 状況 に 応じ し て, これ ら の 環境 変 
数 の 設定 を AUTOEXEC.BAT に 作成 し ます . 


SE「 COMSPEC= テ A : \COMMAND.COM 
SET PATH ニ A : \BIN 

SE「 LIB=A : \LIB 

SE「 IMP 三 A: 半 


叶 日 本 語 FEP の 組み 込み 


(Quick BASIC で 使用 で きる 日 本 語 FEP (フロ ント ・ エ ンド ・ プ ロ セ ッ サ ) は 次 
の 2 種類 で す . 


・ATOK6 
・MS-KANJI _ …API 仕 様 の 日 本 語 入力 シス テム 


ここ で は ATIOK6 を 組み 込む 方 法 を 説明 し ます . ATOK6 を 使用 する に は 次 
の ファ イル が 必要 で す . 


ATOK6A.SYS ーー 漢字 変換 デパ イス ・ ド ライ バ 
ATOK6B.SYS 
ATOK.DIC ーー- 辞書 ファ イル 


(Quick BASIC の イン タプ ブリ タン コン パイ ラ シ ス テム を 1MB フ ロッ ピー に セ 
ッ ト ア ッ プ し た 場合 ,、 ディス ク 容 量 が わずか し か 残ら な いた め , 日 本 語 シ ステ 
ム は ドラ イブ B に の せな けれ ば な り ま せん . この 場合 の CONFIG.SYS で の 設 
定 は 次 の よう に 記述 し ます . 


e CONFIG.SYS 内 の 記述 





DEVICE=B : ATOK6A.SYS プ D=B 


DEVICEB : ATOK6B.SYS 


第 c 竜 セッ ト ・ ア ッ プ Quick BAGSIO 


時 マウ ワ ス ・ ド ライ バ の 組み 込み 


Quick BASIC で は 次 の 2 つの マウ ス ・ ド ライ バ を 提供 し て いま す . 


表 2-7 マウ ス ・ ド ライ バ の 種類 

マウ ポ * ド ライ バ | 2 1 の 人 
従来 の デバ イス ・ ド ライ バ で , CONFIG.SYS の 中 で DEVICE=MOUSE.SYS 
| MOUSE .SYS と 指定 する こと で シス テム 起動 時 に 組み 込ま れ ま す . 起動 後 は マウ ス ・ 
| トド ライ バ を シス テム か ら 切 り 離 すす と は で きま せん . 

コマ ンド ライ ン か ら コ マン ド を 投入 する こと に より , マ ウス ・ ド ライ バ 
を 常駐 / 非 常駐 させ る こと が で きま す . コ マン ド 書 式 は 次 の と お り で す . 

MOUSE バ パス ・ マ ウス を 利用 し ます 

MOUSE .COM MOUSE /C シリ アル ・ マ ウス を 利用 し ます 
MOUSE OFF MOUSE.COM を メモ リ か ら 人 解放 し ます 


| し た が っ て この MOUSE.COM は AUTOEXEC.BAT の 中 で シス テム 起動 時 に 
自動 実行 させ て 組み 込み ます . 





SETUP ユ ー テ ィ リ ティ で は どちら の マウ ス ・ ド ライ バ を 使用 する の か 問い 
合わ せ て きま す の で , それ に 答え る こと で MOUSE.SYS ま た は MOUSECOM 
を 選択 し ます . 

MOUSE.COM の ほう が , 常駐 非常 駐 の 制御 を ユー ザ が 行え る 点 で 便利 だ 
と 思い ます . 


員 フ リン ツ ・ ド ライ バ の 組み 込み 

人 従来 の MS-DOS で は プリ ンタ ・ デ バイ ス ・ ド ライ バ は MS-DOS シス テム の 中 
に あら か じ め 組 み 込 まれ て いま し た . と ころ が , MS-DOS Ver.3.3 と MS-DOS 
Ver.3.1 の 一 部 (製品 番号 PS98 一 011 一 メメ メ ) で は , PRINT.SYS と いう 専用 
の プリ ンタ ・ デ バイ ス ・ ド ライ バ と し て MS-DOS か ら 分 離し て いま す . し た が 
っ て この 場合 は ユー ザ が CONFIG.SYS の 中 で , PRINT.SYS を 登録 し な けれ 
ば な り ま せん . 


由 CONFIG.SYS 内 の 記述 (MS-DOS Ver.3.1 の 一 部 と Ver.3. 3) 
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間 最 終 版 の CONFIG.SYS 


日 本 語 FEP, PRINT.SYS を 組み 込ん だ CONFIG.SYS を 作成 し て み ま し ょ 
9 。 
CONFIG.SYS は テキ スト ・ フ ァイル で すか ら , 適当 な エディ タ を 用 いて 作り 
ます . 第 3 章 で 説明 する Quick BASIC の エディ タ (ドキ ュ メ ント モー ド ) を 用 
いれ ば よい の で す が , 現時 点 で 読者 の 方 は その 使い 方 を 知り ませ ん . そこ で , 
ここ で は COPY コ マン ド を 使っ て CONFIG.SYS を 作る 方 法 を 説明 し て お きま 
す . この 方 法 は 簡易 的 な も の で ミス タイ プ を 修正 で きま せん の で , 間違わ な い 
よう に 打ち 込ん を で くだ さい . 


ーー コン ソー ル か ら の 入力 を 意味 する 
A>COpPY COn COnfig〆g.SyVS8 
FILES=20 
BUFFERS=20 
DEVICE=PRINT .SYS 


DEVICE=B:ATOK6A.SYS /D=B 
DEVICE=B:ATOK6B、.SYS CTRLI+IZ] と 入力 し , 
の 5 ーー ーー mm を 押す 

1 個 の ファ イル た コピ ビー し まし か た 。 





昌 こう し て 完成 し た シス テム ・ デ ィ ス フク 
こう し て 完成 し た シス テム ・ デ ィ ス ク に は , 必要 な 事項 (Language, OS の 
種別 。 作成 年 月 日 な ど ) を 記入 し た ラベ ル を 貼っ て お きま し ょ う . 





な お , 今回 作成 し た シス テム ・ デ ィ ス ク の ファ イル 構成 は 。 以下 の よう に な 


っ て いま す . 


@ る トラ イブ A 


@ トド トラ イフ 日 









COMMAND. COM(MS-DOS Ver.3.3) 
FORMAT. EXE 

DUMP EXE 

README. DOC 

AUTOEXEC. BAT 

CONFIG. SYS 

PRINT SYS 


BIN 一 ーーーーーーー OB. EXE 
OB. HLP 
QB. INI 
OB. Bl 
MOUSE. COM 
BC. EXE 
LIB. EXE 
LINK. EXE 
BRUN42A. EXE 
LIB -- 一 ーーー BCOM42A. LIB 
BRUN42.LIB 
BOLB42.LIB 
QB. LIB 
QB. QLB 


ATOK6A. SYS 
ATOK6B. SYS 
ATOK. DIC 


BASIC ソ ー ス ・ プ ブロ グラ ム 


第 ど 童 セッ ト ・ ア ッ プ Quick BAGIO 


@ AUTOEXEC.BAT 


A>TYPE AUTOEXEC. BAT 

SET COMSPEC=A:\COMMAND . COM 
SE1 PATH=A:\BIN 

SE1 LIB=A:\LIB 

MOUSE 


ー パス の 設定 





マウ ス ・ ド ライ バ の 起動 





9 CONFIG.SYS 


A>TYPE CONFIG.SYS | | 
ド FILES=20 | | 
BUFFERS=20 

DEVICE=PRINT.SYS ーーー - 
PEREERcB:ATOESA。R き ZDep 」。 」 





フリ ンタ ・ ド ライ バ の 組み 込み 


DEVICE=B: ATOK6B.SYS ー 日 本 語 FEP の 組み 込み 


注 ) BASIC コ ン パ イラ と ライ ブラ リ を 除い て QB シス テム だ け に すれ ば , ATOK 関 
係 を ドラ イブ A に の せる こと が で きま す . 


] ハー ド デ ィ スク の 場合 の シス テム 構築 例 


ハー ド デ ィ スク の よう な 大 容量 シス テム で は , Quick BASIC 以 外 の 言語 も デ 
ィ ス ク 上 に 一 緒 に の せる こと が 考え られ る の で , Quick BASIC の シス テム は . 





| QB と いう サ プ デ ィ レ クト リ を 設け , その 下 に 置く こと に し ます . また , ユー ザ 
ファ イル も ハー ド デ ィ スク 上 に 置い た ほう が 有利 な の で , これ を SOURCE と い 


う サ プ デ ィ ピ クト リ に 置き , ここ を カレ ント ディ レク トリ に し ます . この よう 
な 点 を 考慮 し た ハー ド デ ィ スク で の シス テム 構築 例 を , 以下 に 示し ます . 


COMMAND: COM | 
| CONFIG. SYS 
AUTOEXEC.BAT| 
ATOK. DIC | 
ATOK6A. SYS 
ATOK6B. SYS | 
PRINT. SYS | D. 上 入 ヒ 上 BCOM42A LIB 
| BRUN42A.LIB | | ソース フ ァイル 
BOLB42. LIB 
| QB.LIB 
MOUSE. COM OB. OLB 
BC. EXE 
| LIB. EXE 
LINK. EXE 
BRUN42A. EXE 





この よう な シス テム 環境 で は , AUTOEXEC.BAT と CONFIG.SYS を 次 の よ 
う に 作り ます . 


e AUTOEXEC.BAT e CONFIG.SYS 


SET COMSPEC=\COMMAND.COM FILES =20 
SET PATH= \OB\BIN : \MSBIN: \ BUFFERS =20 
SET LIB=\OBYLIB DEVICE=ATOK6A.SYS 


MOUSE | DEVICE=ATOK6B.SYS 
CD \OB\SOURCE | | DEVICE=PRINT.SYS 











第 9 草 


CJUICK 作ら I じ の 


2 
ルン 











さ つ っ つ そく Quick BASIC の 世界 を の ぞい て み ま し よ 
うみ 

OB (統合 開発 環境 ) を 起動 し , 内 蔵 エ ディ ツタ で ソー 
ス ・ テ キス ト を 作り , | SHIFT | 十 |F・5 | で 実行 し ま 
9. 

エラ ー が あれ ば , 瞬時 に エディ タマ に 戻 つ て デバ ッ グ プレ 
て 再 実行 し ます . 


1. OUICK BASIC の 8 動 


それ で は Quick BASIC を 動か し て み ま し ょ う ). 

BASIC じ の ソー ス ・ プ ログ ラム は , ドラ イブ B に TEST.BAS と いう 名 前 で 作る 
oo 綴 し ます 

コマ ンド ・ ラ イン か ら 。, 


A>0B_ BTEST ト 


し ゲー スル ェ プア テ アイ ィ イル 名 。 ファ イ 劇 *・ ず 
イフ を 省略 する と .BAS と みな され る . 


こと 入力 し ます . する と , 次 の よう な メイ ン メ ニュ ー 画 面 が 表示 され ます . 


メイ ン メ ニュ ー・ バ ー 


E/ 編 集 V/ 表 示  S/ 検 索 R/ 実 行 
ー ーー “ | SE は ム で 





 / フ ァイル _D/ テ "ハー ッ ク - 








。 H/ ヘ ルフ ・ ( ・ 





ser 馬 世 ウイ ンド ウ 拡 大 
還 タイ トル ・ パ アイ コン (マウ ス 用 ) 
ーー キーボー ドカ ー ソ ル ( 白 ) 


マウ スカ ー ン ソル (系 ) 


スク ロー ル ・/ バ バー 
(マウ ス 用 ) 


| ニニ ニニ ニー ニニ ニニ ニニ ーー ニー ニー ニー ニニ ニニ ーー ニー ニニ ニニ ニニ ー 





ーー ぁ 』ー イ レク ト モー ト ~ 


メイ ン フ "ロク "ラム 』 TEST.BAS 





動作 状況 : 実行 され て いま せん C 00001:001 
し 。- 本 ダイ レク ト ・ モ ー ド ・ ウ イン ドウ | 1 
ーー ー ビ ピュ ー・ ウ イン ドウ 行灯 





第 3 章 Quick BASIC の 基礎 知識 


2 OUICk メ ニュ ー の 使い 亡 


罰 6 つの メイ ン メ ニュ ユー 
Quick BASIC で は ,。 次 の 8 つの メイ ン メ ニュ ー を 選択 する こと が で きま す . 
メニ ュー に よっ て は , さら に サ プ メ ニュ ー を 選択 する も の も あり ます . 





ビギナー は , これ ら の メニ ュー の 操作 法 を すべ て 知っ て お く 必 要 は あり ませ 
ん の で , 必要 な も の だ け に 絞っ て 説明 し ます . 





明 メニ ユー 操作 の 基本 


メニ ュー 操作 は お お よそ 次 の 3 つの 方 法 の いずれ か で 行う こと が で きま す . 


|1 トキ ー ボ ー ド 入力 方 式 

IGRPHI キ ー に より メニ ュー 選択 モー ド に 入り , 
カー ソル 移動 また は メニ ュー 先頭 文字 の 入力 
に より メニ ュー を 選択 する 方 式 . 








2- マ ウス 入力 方 式 

マウ スカ ー ソ ル を メニ ュー 項目 に 移動 し , 左 
ボタ ン を クリ ッ ク ( す ば や く 押 し て 離す ) す る 
こと で メニ ュー を 選択 する 方 式 . 





13| シ ョ ー ト ・ カ ッ ト ・ キ ー( ホ ッ ト ・ キ ー) 方 式 
メニ ュー の 一 部 の も の は ファ ンク ショ ン キ ー([CTRL|, [SHFT] と 組み 
合わ せる 場合 も ある ) に 割り 当て られ て いる の で . これ を 1 タッ チ 
する こと で メニ ュー を 選択 する 方 式 . 


メニ ュー 操作 で 使う 主 な キー は 以下 の も の で す . 


表 3-1 メニ ュー 操作 に 必要 な キー 

メニ ュー 操作 キー | ES 5 
メニ ュー 選択 モー ド に 入り ます . メニ ュー 項目 の 先頭 文字 の 色 が 
| 変わり ます . メニ ュー 選択 モー ド か ら 抜 ける に は 再び [GRPH| を 押 | 
し ます . 





選 ) | 
つ 
9 





メイ ン メ ニュ ー の 選択 で は |GRPH| キー を 押し 続け る 必要 は あり ま 
せん が , サブ プ メ ニュ ー 内 で は 押し な が ら メ ニュ ー 選 択 を 行う 必要 
| が ある 場合 が あり ます . 
TAB | サ プ メ ニュ ー 内 の 項目 を 次 に 進め ます . 
| [SHFT|+| TAB] | サ プ メ ニュ ー 内 の 項目 を 1 つ 前 に 戻し ます . " 
| | メニ ュー バー( カ ー ソ ル ) の 置か れ て いる メニ ュー を 実行 し ます . 
メイ ン メ ニュ ー・ パ バー を 移動 し ます . 
サブ プ メ ニュ ー・ パ ー を 移動 し ます . 
ESC メニ ュー 処理 を 取り 消し ます . 
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サ プ メ ニュ ー の 各 項 目 の 一 般 的 な 意味 を 示し ます . 


メイ ン メ ニュ ー の メニ ュー・ パ バー 


| 『/ フ ァイル | E/ 編 集 |'V/ 表 示  S/ 検 索 














U/ 元 - 戻 す GRPH+BS | サ プ メ ニュ ー の メニ ュー… バ パー 
TF/ カ ッ ト SHTFT+DETTT 対応 する ショ ー ト ・ カ ッ ト ・ キ ー 
C/ コ ビビ" = CTR エ L+TNS 
[IP へ * - ス ト SHTFT+TNS 
' / 削 除 Po DEL 先頭 の 文字 の 色 が 変わ っ て いな いも の は , 


今 の 状態 で は 実行 で き な い こと を 示す . 
、、、 5 ある サフ プ ガ ニュ ーー は 、 こ の 下 に 
さら に サ プ メ ニュ ー が ある こと を 示す . 








> が ある と , この 項目 が 示す 機能 が ON 状態 に ある こと を 示す . 
この 項目 を 選択 する た びに ON/OFF の トグル 動作 と な る . 


3. これ だ け は 知 つ て お きた い エ デイ 6 操作 法 


明 目 動 構文 チエ ツク 機能 


Quick BASIC の エディ タ は 自動 構文 チェ ッ ク 機 能 が 付い て いま す . キー 
また は [1L[U| キー を 押す と , その 行 の 内 容 が 正しい ぃ BASIC 文法 に し た が っ て い 
る か チェ ッ ク し , も し 誤っ て いれ ば メッ セー ジ を 出し て くれ ます . 





エラ ー を 示す ダイ アロ グ ボ ックス が 表示 され る . 
TO が 必要 で ある こと を 示し て いる . 
また は IESCI で ダイ アロ グ ボ ックス か ら 技 ける . 


1 行 の 内 容 が 正しけれ ば , 予約 語 (for,、 if など) を 大 文字 に 変換 し , 演算 子 
の 両 脇 に 空 日 を 補い ます . また , イン タプ リタ が その 行 の 内 容 を BASIC の 内 部 
コー ド に 変換 し て , メモ リ 上 に 格納 し ます . 






FOR 」 = 0O TO 10 


| | L 「 1L_ 識 白 が 置か れる 
枯 デ ーーー 


_ 予約 語 は 大 文字 に 変換 され る 
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虹 オ ー ト ・ イ ンプ デント 機能 


プ ブログ ラム を 見 や すく する だめ に 空白 や タプ を 適当 に 入れ , while や for な ど 
の ルー プ 構 造 や , if then else な どの ブロ ッ ク が ひと 目 で わか る よう に ., 書き 出 
す 先 頭 位 置 を 右 に 下げ ます . これ を イン デン ト ( 字 下 げ ) と いい ます . 

イン デン ト の 間隔 は 何 文 字 で も か まい ませ ん が , 通常 は TAB の 間隔 で と っ 
て いき ます . Quick BASIC の TAB 間 隔 は 4 文字 で す (| V ノ 表示 | メニ ュー の 
|「0 ノ ォ プ ショ ン | サ プ メ ニュ ー で 変更 で きま す ). 


FOR i=1 TO 10 
SUM = 0 

FOR 」=1 TO N 
SUM = SUM + A 


EarE ITAB] | 











文字 | 4 文字 


[ 
NEXT 


NEXT  i 
オー ト ・ イ ン デ ント 機能 と は , 次 の よう に | で 次 の 行 に 移っ た と き に , 直前 
の 行 の 先頭 文字 位置 に 自動 的 に 頭 合わ せ を する こと を いい ます . 
FOR 」=1 TO 10. 


ーー 


np TAB| FOR 」=1 TO N。 


ーーーーー デ ーー 


uH く YT く TK 


ダイ アロ グ ・ ・ ボ ックス | 


ダイ アリ ログ (dialogue) は 対話 と い う 意味 で す . し た が っ て ダイ アロ グ ・ ポ ボッ | 
クス は , 各 メ ニュ ー が 出す 応答 要求 に 対し 操作 者 が 答 を える た め の 囲 い 箱 と いう 


意味 に な り ま す . 


則 基本 エ デ イ 操作 


Quick BASIC の エディ タ は , いく つか の キー 操作 (キー・ コ マン ド と も 呼ぶ ) 
に よる 多彩 な 編集 機能 を 持っ て いま す . そし て これ ら の キー 操作 は , 世界 的 に 
有名 な WordStar と いう スク リー ン ・ エ ディ タ と コン パチ ブル に な っ て いま す . 

と ころ で , ビギナー は これ ら の キー 操作 を すべ て 知っ て いる 必要 は あり ませ 
ん . 以下 に 示す 基本 的 な キー 操作 を 知っ て いれ ば , と りあ え ず 十分 で し ょ う }). 


$ 基 本 カー ソル 移動 

画面 上 で 点滅 し て いる 目 を カー ソル と 呼び ます . キー ボー ド か ら の 入力 文字 
は , この カー ソル 位置 に 入っ て いき ます . この カー ソル を 上 下 左右 に 移動 する 
に は , [1 は | キー を 押し ます . 


$ イ ン サ ー ト / オ ー バ ー ラ イト ・ モ ー ド の 切り 換え [INSI(cTRL+IVD 
IINS| キー を 押す ご と に , イン サー ト ・ モ ー ド と オー バー ライ ト ・ モ ー ド が 切 
り 換わり ます . 

イン サー ト ・ モ ー ド な の か オー バー ライ ト ・ モ ー ド な の か は , カー ソル の 点 
減 の 仕方 で 判別 で きま す . イン サー ト ・ モ ー ド で は カー ソル が 点 減 する の に 対 
し , オー バー ライ ト ・ モ ー ド で は 点 減 し ませ ん . 

イン サー ト ・ モ ー ド で は カー ソル 位置 に 入力 文字 が 挿入 され て いき ます が 
オー バー ライ ト ・ モ ー ド で は カー ソル 位置 の 文字 が 入力 文字 で 書き 直さ れ ま す . 





IR| i=0 TO 5 イン サー ト ・ モ ー ド 
「 な U [| を 入力 


FOR| i=0 1T0 5 


0 が 挿入 され る 


RI i= ニ 0 TO 5 オー バー ライ ト ・ モ ー ド 
識 -」 り 回 


FO |i=0 T0 5 


R の 位置 に 0 が オー バー ライ ト (重ね 書き ) され る 
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カー ソル 位置 の 1 文字 デリ ー ト CTRL+TlGD | 
IDEL| キー に より カー ソル 位置 の 文字 を デリ ー ト し , カー ソル より 右 に ある 
文字 列 を 左 に 寄せ ます . 


FOAR i=0 TO 5 





り DEL| 
9W 「 ニ 0 TO 5 
A が デリ ー ト され て いる 
カー ソル の 左 の 1 文字 デリ ー ト | BS (CTRL TIHb 


| BS| キー に より カー ソル の 左 の 文字 を デリ ー ト し , カー ソル より 右 に ある 文 
字 列 を 右 に 寄せ ます . 


FOAR| i=0 TO 5 


リ |BS 
7 半 「 ニ 0 TO 5 
ーA が デリ ー ト され て いる 
$ 1 行 挿入 ICTRLTINI 


|N|(CTRL| キー を 押し な が ら |N| を 押す ) に よっ て , カー ソル 位 
直 に 空 日 行 を 挿入 し ます . カー ソル は 行 の 先頭 文字 位置 に な けれ ば な り ま せん . 


SUM=0 _  、 SUM=0 


記紀 還 昌 | | ェ ーーー 1 行 の 空白 行 が 入る 
CTRL |+INI 
A=O 


$ 1 行 削除 ICTRLITIY| 
|CTRL|+ |Y|(CTRL| キー を 押し な が ら |Y| を 押す ) に より , カー ソル 位置 
の 行 を 削除 し ます . 





LCTRLI+IY 
この 行 が 削除 され る 


昌 キー 配置 


エディ タ 上 で 使う 重要 な キー の 配置 を 以下 に 示し ます . 


カー ソル の 左 の 1 文字 
デリ ー ト 
ー 挿 入 モ ー ド ON/OFF 


四 //CTRL を 押し な が ら Y y 
/ を 押す と , 1 行 デ リー ト ニー 
キ 
の キー と 組 ビー 


カー ソル 位置 の 
1 文字 デリ ー ト 





ー カ ー ン ソル 移動 


CTRL を 押し な が ら N 
を 押す と 1 和 入 









ダイ レク ト ・ キ ー 
直接 メニ ュー を 選択 する 
IBM-PC の |Alt| に 相当 


昌 プロ プラ ム の セー プ ブ 








エディ タ 上 で 作っ た ファ イル を 保存 する に は , メニ ュー の 中 
の 次 の 3 通り の 方 法 が あり ます . 
S 保存 … 現 在 の アク ティ ブウ イン ドウ に 表示 され て い 
る ファ イル を セー プ し ます . 
V グ すべ て 保存 … サ プ モ ジュ ー ル も 含め 。 すべ て を セー プ ブ し ま 
す 。 マル チ モ ジ ュー ル で 作業 し て いる と き に 
便利 で す . 
A グ 名 前 を 変え て 保存 ..… … タ イト ル ・ バ ー に 表示 され て いる 名 前 と 異な 
る 名 前 で 保存 し ます . 


単 一 モジ ュー ル の プロ グラ ム の 場合 は | S ノ 保存 | マル チ モ ジ ュー ル の プロ 
グラ ム の 場合 は を 使う の が 一 般 的 で す . 

タイ トル ・ バ ー が 「Untitled」( フ ァイル 名 が な いり い 場合) の と き に |「S ノ 保存 

LV すべ て 保存 | を 選択 し た 場合 , |A/ 名 前 を 変え て 保存 .…| を 選択 し た 場 
合 は , 次 の よう な ダイ アロ グ ・ ボ ックス が 開く の で ファ イル 名 お よび ファ イル 
の 保存 形式 を 指定 し て くだ さい . 
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N/ フ ァイル 名 : | " 一 新しい ファ イル 名 を 入力 





(”) 「 0/ 標準 ファ イル 常 存 形 率 ーーーーー 1 Quick BAsic の 内 部 コー ド て 


ファ イル を セー プ 
( 、) 呈 / テ キス ト フ ァイル | 


GRPH |+[0|」」 IGRPH+「T| に より ァ イ si 
* の 位置 が 動く 





「Q ノ 標準 ファ イル 」 の 形式 で セー ブ プ され た ファ イル は Quick BASIC の 内 部 コ 
ー ド で セー プ ブ さ れ て いる の で , TYPE コ マン ド で 見 る こと は で きま せん し ,。 他 
の エディ タ を 用 いて 編集 する こと も で きま せん . 

MS-DOS 上 の ソー ステ キス ト と し て 一 般 性 を 持た せる に は , 「 エ プ テ キ スト 
ファ イル 」 の 形式 で セー プ し て くだ な さい. 

1 度 セ ー プ され た ファ イル を ロー ド し 再び セー ブ す る 場合 は , 前 の 保存 形式 
が デフ ォ ル ト と な り ま す . 


時 次 の プロ グラ ム を 作る に は 


現在 の ブロ グラ ム の 開発 が 終わ り , 次 の プロ グラ ム を 作り た いと き は , 一 度 
Quick BASIC を 終了 し て か ら 再 起動 し て も よい の で す が , QB の 起動 に は 時 間 
が か か り ま す . 一 般 に [F ノ ファ イル | メニ ュー の [|N ノ 新規 サ プ メ ニュ 
いて , 現在 の プロ グラ ム を メモ リ 上 か ら 消 し , 次 の プロ グラ ム 開 発 に 入り ます . 





" F/ フ ァイル E/ 編 集 ーー 
TEST BAS 


FOR k=1 TO 10 
SUM SUM 十 A 




















Untiteled ' 


メモ リ 上 の プ ブログ ラム が 消去 され る 


4. ブログ ラム を 作っ つて み ま し よう 


それ で は , いよ いよ プロ グラ ム を 作っ て みる こと に し まし ょ う . 


次 の プロ グラ ム は , グラ フィ ッ ク を 用 いて ダイ アモ ンド ・ リ ング を 描く も の 
で す . 








---/* ダイ アモ ンド ・ リ ング */--- 


SCREEN 0: CLS 
wINDOWw (-320。 -200)-(320。, 


200 ) 

N = 16 夫 。 
Angle = (360 / N) * 3.14159 / 180  ' 角 
R = 150 人 





FOR KkK = 0 TO N - 2 


X1 = HH * COS(K * Angle) 
Y]1 = R * SIN(K * Angle) 
F ド FO 


本 
X2 = R * COS(j * Angle) 
y2 = R * SIN(j * Angle) 
EN (天上 ま 。 ダ ト リーズ (2 。 2)。 3 

NEXT j 

NEXT Kk 

END 





要 
W 


重 し 二 和 ea 「 ' 
し デー・ マ 1 し 
・ 但馬 iM 
・ 才 CX/ ベ S 


「 記 
g 『」 
。 
レイ エミ 


も の ・/ /。 
へ トー 
よ 

ハハ た 


ーー 


= " 
= 起 
hh 4 


y. 
で 
P。 


る 
旬 
CI 
〒 ず 
い ' 


メリ 」 


いい = 
も マ 


」 
1 | 
= 画 
人 邊 


二 
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Quick BASIC で は 行 番号 を 必要 と し ませ ん . 1 行 の 終わ り は [ 剛 キー を , イ 
ン デ ント は |TAB| キ ー を 押し ます . 行 の 中 間 に カ ー ソ ル が ある 状態 で 次 の 行 に 
移り た いと き は [!] キー を 用 いて くだ さい . 

プロ グラ ム は 英 小 文字 で 入力 し て も 英 大 文字 で 入力 し て も か まい ませ ん が 
予約 語 (for。 next な ど ) は 自動 構文 チェ ッ ク 機 能 に より 大 文字 に 変換 され ま 
す . 





和則 違い や すい 文字 


BASIC の プロ グラ ム 中 に は いく つか の 特殊 記号 が 出 て きま す . その 中 で 間 違 


いや すい も の を 以下 に 示し ます . 


” (一 重 引用 符 ) 注 ) 文字 列 を "abc" と 書き ます が , 
” ( 単 一 引用 符 ) この と き 左 の "と 右 の "は 同じ 
。 全て) も の を 使っ て いま す . 

(ピリ オド ) 
(7 デメ グー スゴ アナ ) 


ん ミコ ゴロン) 
(コロ ン ) 


な お , プロ グラ ム を 打ち 込む と き , 次 の 2 組 の 文字 も 間違い や すい の で 注意 
し て くだ さい ゆい 、 


・ ア ルフ ァ ベ ッ ト の O (オー) と 数 字 の 0 (ゼロ ) 
・ ア ルフ ァ ベ ッ ト 小 文字 の 1 (エル ) と 数 字 の 1 (イチ ) 





9. プログ ラム の 実行 


プロ グラ ム の 実行 は 次 の よう に 行い ます . 


[SHT] + [| 
これ で イン タブ リタ が 文法 チェ ッ ク を 行い , 誤り が あれ ば 次 の よう な エラ ー 
メッ ギー ジ を 出し ます . 











F/ フ ァイル E/ 編 集 V/ 表 示 5/ 検 R/ 守 行 D/ テ ^ ハ ~ う 2" C/ 関 数 H/ ヘ ルフ 2" (E・1 ) 





SCREEN 0: CLS 
WINDOW (-320, -200)-(320, 200) 

N = 16 分割 数 
Angle = (360 /N) * 3.14159 / 180 ′ 角度 
R = 150 」 ーー 


POR k = 0 TON- 2 対応 する FOR が あり ませ ん (ERR=1 ) 
x1 = R * COS(k *| 
Y1 = R * SIN(k *| ピー 
FOR ] = k+1 rmOl 


X2 = R * COS 





ーー ーーー 


LINE (x1, y1)ー 
NEXT ] 
NE 中 1 ーーーーーー エラ ーー 箇所 が 反転 表示 され る 


ーー*ー イ レク ト エコ ュー 








動作 状況 1 実行 され て いま _ 00018:001 





メイ ン フ * ロク" ラム: DIAMOND.BAS 





また は | ESC | で モエ ラー メッセ ー ジ ・ ポ ックス が 消え , エラ ー 箇 所 に カー ソ 
ル が 移り ます の で , 誤り を 修正 し て 再 実 行 し ます . 


6. 頼り に な る オノ ライン ・ ヘ ルプ 


Quick BASIC に は オン ライ ン ・ ヘ ルプ と いう 強力 な ヘル プ 機 能 が あり ます . 
プロ グラ ム 作 成 中 に , た と えば LINE と いう ステ ー ト メン ト の 使い 方 を 調べ た 
い ぃ 場合, いち いち マニ ュ ア ル を 調べ な く て も , ブ ログ ラム 中 の LINE と いう 文字 
の と ころ に カー ソル を 移し , 


SHFT] + [1 


を 押す こと で , 次 の よう な ヘル プ メ ッ セ ー ジ が 表示 され ます . 










F/ フ ァイル  E/ 編 集 V/ 表 示  S/ 検 索 R/ 実 行 D/ テ " ハ " ぅ 2 ク " C/ 関 数 。 H/ へ AM2'(E:1 
し I NE INPUT[z] ["prOmpt8 上 1nmd" : ] 8 上 エエ 1mnGVa エ 1aD1@G 「 
標準 入力 先 か ら Strinqgvariable に 1 行 の デー タ を 読み 込み ます . 


し I NE INPUT # 人 fi]1enumDer , 8 上 エエ inqVariabl1e も 
| へ / 

tilenumDberc で オー プン し た ファ イル か ら 1 行 分 の デー タ を 読み 込み , その 行 を strindq 語 0 が 性 の 

Variable に 代入 し ます 


LINE [[STEP]((x1/Y1)]-[STEP] (2Y2) [,[Color][,[B[F ]][,sty1e] ] ] 


DIAMOND .BAS ーー 4 
y2 = R * STN(] * Anqg1e) 
LTNE (x1, y1)-(x2, y2), 3 
NEXT 1] 
NEXT ] 
| END 


母 を 引い た り ,/, ポ ックス を 描い た り し ます (グラ フィ ッ ク モ ー ド )・ 





ター イレ クト モー ト "ーーーーー 一 





メイ ン フ "ロク "ラム : DTAMOND.BAS 動作 状況 : 実 れ て いま せん 00016:009 





/, OB モー ドガ ら 抜け る 


QB モー ド か ら 抜 け て MS-DOS に 戻る に は , 次 の 2 つの 方 法 が あり ます . 
員 OB を 終了 し て MS-DOS に 戻る 


QB モー ド を 終了 し て MS-DOS に 戻る に は , 次 の メニ ュー を 選択 し ます . 


Re 





この 場合 , 再び QB モー ド に 入る に は , QB を 再起 動 し な けれ ば な り ま せん . 


時 OB か ら MS-DOS に 一 時 的 に 戻る (OS シェ ル ) 





ー ド か ら 一 時 的 に MS-DOS に 戻る こと が で きま す . 


QB モー ド 


の 省 


A> 


仕事 を する MDOS 


A>exit| ン | 





MS-DOS 上 で いろ いろ な 仕事 を し た 後に , 
A>exit . 


と 入力 すれ ば , MS-DOS に 移る 前 の QB モー ド に 瞬時 に 戻り ます . 
QB の 起動 は 時 間 が か か る の で , この OS シェル 機 能 は 大 変 便利 で す . 


第 3 莉 Quick BASIC の 基礎 知識 


0. 日 本 語 の 八 力 万 法 に つい て 


PC-98 版 の Quick BASIC は 日 本 語 対 応 に な っ て いる の で , エディ タ の 中 で 日 
本 語 を 入力 する こと が で きま す . 

日 本 語 の 入力 方 法 は , CONFIG.SYS で 組み 込ん だ 日 本 語 FEP が 何で ある か 
で 異な り ま す . ここ で は ATOK の 場合 に つい て だ け 人 簡単 に 説明 し ます . 


刀 ATOK 





で 日 本 語 入 力 モ ー ド に 入り ます . 





連 ロ ー マ 字 漢字 


た と えば , 「 漢 字 」 と いう 日 本 語 を 入力 し て み ま し ょ う , |KIAIINIIJILL| と 
入力 する と 。 カー ソル 位置 に 「 か ん じ 」 と 表示 され ます . ここ で , キ 
ー ま た は | XFER | キー を 押す と , 何 か 日 本 語 が 表示 され ます . も し , それ が 「 漢 
字 」 な ら [| キー を 押し て 確定 し ます . 該当 する も の で な けれ ば , 見 つか る まで 
| SPACE | キー を 押し ます . 

も し , ロー マ 字 入力 で な く か な 入力 を し た けれ ば , キー を ロッ ク 状 態 に 
押し 込み ます . 

この 場合 は , と 入力 し ます . あと は ロー マ 字 入力 の 場合 と 同じ 
な 





日 本 語 入 力 を 終了 する に は , 再び |CTRL| + |[XFER | を 押し ます . 
日 本 語 入 力 ・ 変 換 時 の キー 操作 の 中 で 重要 な も の だ け を 以下 に 示し ます . 


表 3-2 日 本 語 入力 * 変換 キー 


ESC | 








析 に 人 - 能 


日 本 語 入力 モー ド に 入る . 


も う 一 度 押 す と 日 本 語 入力 モー ド を 終了 . 


換 . 日本 語 條 本 群 の 次 の 群 を 表示 . 


補 換 . 日 本 語 侯 宙 群 の 中 を 右 に 移動 


換 文字 列 の 確定 

ロー ー マ 字 入力 / カ ナ 入力 の 切り 換え . 

| 入力 され た 文字 列 を ひら が な に 変換 
入力 され た 文字 列 を カタ カナ に 変換 

| スカ され た 文字 列 を 半角 に 変換 
入力 され た 文字 列 を ア ルフ ァ ベ ッ ト に 変換 
入力 モー ド の 切り 換え 

入力 され た 文字 列 を すべ て 消去 

入力 され た 文字 列 の 1 文字 削除 





第 4 草 


知っ て 得する 機能 別 
(Juick BASIC 操 作法 











Ouick BASIC の プル : ザウ ン ・ メ ニュ ー は , 8 つの 
メイ ン メ ニュ ー と その 下 に いく つが の サブ プ メ ニュ ユー を 持 | 
つて いま す . 

その 中 で , ビギナー が 知 つ て いれ ば 便利 だ と 思わ れる 
も の に つい て , 機能 別に 紹介 し ます . 


1、 メ ニコ ユー 操作 一 臣 


明 シ ヨー ト ・ カ ツ ト ・ キ ー ( ホ ツ ト ・ キ ー) 一 覧 
(Quick BASIC の ショ ー ト ・ カ ッ ト ・ キ ー の 一 覧 を 以下 に 示し ます . テキ スト 
の 編集 に 関す る も の は 第 3 節 (P63) を 参照 し て くだ さい . 


4-1 ショ ー ト ぃ カット: キー 


全般 の ヘル プ 情 報 を 表示 する . 
SUB モ ジュ ー ル の 一 覧 を 表示 する . 
| QB 画面 と プロ グラ ム 出 力 画面 を 切り 換え る . 
STOP 文 な ど に よ り 中 断 さ 】 れ て いた フ リロ グ ラム を 続行 する . 
アクティブ ・ ウ イン ドウ を 次 の 画面 (下方 の 画面 ) に 移す . 
現在 の カー ソル 位置 まで プロ グラ ム を 実行 する 、 
1 行 ト レー ス . プロ シー ジャ の 内 部 も トレ ー ス する . 


カー ソル 行 に , プレ ー クボ ポイ ント を 放 設定 / 解 除 する . 
1 行 ト レー ス . プロ シー ジャ の 内 部 は トレ ー ス し な い . 








こ ー」 | 指定 され た 予約 語 ( キ ー ワ ー ド ) に つい て の ヘル プ 情 報 を 表示 する | 
ーー オン ライ ン ・ へ ヘル ー 


アク ティ ブ ・ ウイ ンド ウ に 次 の SUB プ ロ シ ー ジャ を 表示 する . 

SHFT プロ グラ ム を 最初 か ら 実行 する . ーー 
F・6| | アク ティ ブ ・ ウイ ンド ウ を 前 の 画 画面 (上 方 の 画面 ) に 移す . 

| 実行 され た 最後 の 20 行 を プロ グラム 先頭 方 向 に た どる . 

実行 され た 最後 の 20 行 を プロ グラ ム 終 示方 向 に た どる . 

LcTRL |+[F-2| | ァ ッ の S 








cnD アク ティ ブ ・ ウ イン ドウ に 前 の SUB ブ プロシージャ を 表示 する 。 
[el 引 | フル スク リー ン を 以前 の 分 割 画面 に 戻す 
| フル スク リー ン と 分 割 画 面 を 切り 換え る トグル 動作 . 





第 4 草 機能 別 Quick BAGIO 操 作法 


較 OUICk メ ニコ ユー 一 覧 


Quick BASIC の メイ ン メ ニュ ー と サブ プ メ ニュ ー の 一 覧 を 以下 に 示し ます . 


ーー メニ ーー ンー ェ 







0/ 肝 込 。 


アク ティ プ ブウ イン ドウ の プロ グラ ム を 別 の ファ イ 


A/ 名 前 を 変え て 保存 ..…. ん 名 列 の 保存 モー 『 て セー ー プ する 


V/ す べ て 保存 
| C/ サ プ フ ァ イ ル 作 成 .… 














この ゴー メイ ンカ ャ ー ド フ ァイル / ド キュ 
メン ト フ ァイル を 作成 する 


モジ ュー ル / イ ンク ルー ド フ ァイル / ド キ ュ メ ン ト " 
| ファ イル を メモ リ 上 に ロー ド す る 
メモ リ 上 の モジ ュー ル / イ ンク ルー ド 
ドキ ュ メ ント ファ イル を 消去 する 
P/ 印 刷 .… | メモ リ 上 の プロ グラ ム を プリ ンタ に 印刷 する 
| 准 -D0S5 コ マン ド 一 時 的 に MS-DOS に 抜け る . 0S シ ェ ル . 
QB モー ド を 終了 し て MSDOS に 戻る . 
最後 の 編集 動作 を 行う 前 の 状態 に 戻す . 
「 アン ドッ 機能 
指定 され た テキ スト を 削除 し , クリ ッ プ ボー ド に | 
| 格納 する 
指定 され た テキ スト を クリ ッ プ ボー ド に 格納 する 
クリ ッ プ ボー ド の 内 容 を , 現在 の カー ソル 位置 に 
挿入 する | 
E/ 削 除 指定 され た テキ スト を 削除 する 
| S/ 新 規 SUB.… | 新しい SUB プ ロ シ ー ジ ャ の ウイ ンド ウ を 開く 。 
|『/ 打 坦 FUNCTON | 新しい FUNCTION プ ロ シ ー ジ ャ の ウイ ンド ウ を 開く 
自動 構文 チェ ッ ク 機 能 の ON/OFF を 切り 換え る 
メモ リ 上 の SUB プ ロ シ ー ジ ャ の 一 覧 を 表示 する 
| E/ 炊 の SUB アク ティ プ ブウ イン ドウ に , 次 の サ プ プ ログ ラム を 表示 
P/ 画 面 分 害 画面 分 割 と 単 ー ウ イン ドウ を 切り 換え る 。 | 
N/ 次 の ステ ー ト メン ト 炊 に 実行 され る ステ ー ト メン ト を 表示 する 
U/ 実 行 画面 | 
/ イ ンク ルー ド フ ァイル 編集 | 
| L/ イ ンク ルー ド フ ァイル 
0/ オ プシ ョ ン .… 









| L/ サ プ フ ァ イ ル 常 駐 .… 








・ フ ァイル / 





「 U/ サ プ ブフ ァイル 解放 ... 














































出力 画面 に 切り 換え る 

イン クル ー ド ファ イル を 表示 し て 編集 モー ド に 入る 
イン クル ー ド ファ イル を 表示 する | ( 
画面 の 表示 色 , みう プ * サイ ズ の 設定 を する 








| S/ 指 定 文字 列 検索 


| L/ ラ ベル 


| R/ リ スタ ー ト 


| N/ 続 行 
| C/COMMAND$ 入 力 .… 


X/EXE フ ァイル 作成 .… 


L/ ラ イブ ラリ 作成 .… 


M/ メ イン モジ ュー ル の 設定 .… 
A/ ウ ォ ッ チ の 追加 .… 


| W/ ウォ ッ チ ポイ ント .… 
D/ ウ ォ ッ チ の 削除 .… 
L/ 全 ウォ ッ チ 削除 


T/ ト レー ス 
H/ ヒ スト リ " 
BB/ プ レー ー ク ポイ ント 


C/ 全 プレ ー ク ボイン ト の 解放 

| 8/ カ レン トス テー トメ ント の 設定 テー トメ アン 
て FT ー PP イ ーー 理 
| の プロ シー ジャ を 呼び 出し て いる プロ シー ジャ 名 


C/ ヘ ルプ を と る 


指定 し た テキ スト を 探す ーー 

アク ティ ブウ イン ドウ 中 で 反転 表示 され て いる テ 

| キス ト を 検索 する 

次 に 一 致す る 検索 文字 列 を 探す [f 
指定 し た テキ スト を 探し 新しい テキ スト に 置き 換 


ス る 
ラベ ル の 検索 を 行う 


プロ グラ ム を 実行 する 


プロ グラ ム 中 の 変数 を クリ ア し . ブロ グラ ム 先 豆 


を 実行 開始 点 に 設定 する _- 
STOP 文 な ど に より 中 断 さ れ て いた プロ グラ ム を 続 


行 する 


COMMAND3 関 数 が 返す 文字 列 を 設定 する 


コン バイ ラ / リン カ を 起動 し , 実行 可能 ファ イル 


(.EXE) を ディ スク に 作成 する 


コン パイ ラ / リ ンカ / ラ イブ ラリ アン を 起動 し . ク 
ィ ッ ク ・ ラ イブ ラリ を ディ スク に 作成 する 


の 位置 に カー ソル を 移す 


全般 の ヘル プ 情 報 を 表示 する " 
| BASIC の キー ワー ド (予約 語 ) に つい て の ヘル プ 情 


報 を 表示 する 





ヘル プ ウ イン ドウ を 閉じ る 


ー ダ イレ クト モード: ウィ シド ウ 
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/, ワイ ノド ワリ 操 作 


時 ワ イン ドウ の 分 割 


ウィ ンド ウ は , ビュ ー ウ イン ドウ , ダイ レク トモ ー ド ・ ウ イン ドウ , ウォ ッ 
チ ・ ウ イン ドウ に 分 か れ ま す . この うち ビュ ー ウ イン ドウ は , 
|P ノ 画面 分 割 ] メニ ュー で 2 つ に 分 割 す る こと が で きま す . 

また , |CTRL| 十 |F・10| に より アク ティ ブ 画 面 を フル スク リー ン に し た り 元 
に 戻し た りす る こと が で きま す . 














反転 表示 され て いる 画面 が 
アク ティ ノブ フ 画 面 








P/ 画 画 分 割 
(トグル 動作 ) 





| CTRL+IF・10| 





アク ティ ブ 画 面 が フル ・ ス クリ ー ン | 


に な る 
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『] 





アノ ティ ブ ・ ウ イン ドウ の 物 動 


ISHIFT | + |F・6| に より アク ティ プ ・ ウ イン ドウ を 移動 する こと が で 
さき ます . 





| タイ トル 


ー タ ダイ ドル 
SHIFT 十 F・6 


ナー ダイ レク ト ・ モ ー ド 
ノ 





マウ ス で ぜ で 移動 する 場合 は , マウ ス ・ カ ー ソ ル を 移動 し た い ウ イン ドウ に 移し . 
左 ポ タン を クリ ッ ク し ます . 


思 ワ イン ド ワ の 拡大 縮小 


アク ティ ブ ・ ウ イン ドウ の サイ ズ を 拡大 また は 縮小 する に は , [GRPH | + 


IGRPH| + | | を 用 いま す . 


タイ トル バー 


ダイ レク ト ・ モ ー ド 





| GRPH + + 


マウ ス を 用 いる な ら タ イト ル バ ー に マウ ス ・ カ ー ソ ル を 合わ せ 。 左 ボ タン を 
押し な が ら マ ウス を 上 / 下 に 移動 し ます . これ で 移動 方 向 に ウイ ンド ウ が 拡大 
グ 縮 小 し ます . 
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3 エディ イタ 


間 編 集 コ マン ド 一 覧 


テキ スト 編集 で 使う キー・ コ マン ド の 一 覧 を 示し ます . 





表 4-3 キー コマ ンド ト 一覧 


| カー ソル を 左 に 
カー ソル を 右 に 
カー ソル を 上 に 
- カー ソル を 下 に 
- 1 単語 分 移動 
| 右 に 1 単語 分 移動 
カレ ント 行 の 最初 の 文字 に 移動 
カレ ント 行 の 物理 的 な 左端 に 移動 
次 の 行 の 最初 の 文字 に 移動 
| カレ ント 行 の 最後 の 文字 に 移動 
ウイ ンド ウ の 上 端 に 移動 ーー 
ウイ ンド ウ の 下端 に 移動 
| モジ ュー ル / プ ロ シ ー ジ ャ の 先頭 に 移動 
モジ ュー ル / プ ロ シ ー ジ ャ の 終わ り に 移動 
カレ ント 行 に n 番 (0 一 3 の 数 ) の マー ク を 設定 
| n 番 (0-3 の 数 ) の マー ク 位 置 に 移動 
_ 挿入 モー ド の ON/OFF_ ーー 
カレ ント 行 の 上 に 1 行 挿入 カー ソル が 行 の 先頭 位置 に な いと その 行 が 
| 中断 さ れる の で , その 場合 は | HOME/CLR| で カー ソル を 先頭 文字 に 移し 
LCTRL |+ |N] を 行う ーー ー 
カレ ント 行 の 下 に 1 行 挿入 カー ソル が 行 の 終末 位置 に な いと その 行 が 
中 断 さ れる の で , その 場合 は | HELP | で カー ソル を 行 の 終末 文字 に 移し て 
| か ら [ ン | を 行う ーー 
| CTRL |+|Y| カー ソル 行 を 削除 。 この 内 容 は クリ ッ プ ボー ド に 保存 され る . _ 
1 病 1 | カー ソル 位置 か ら 行末 まで を 削除 。 この 内 容 は クリ ッ プ ボー ド に 保存 さ _ 
「 れる . | | 
カー ソル 位置 の 左 の 文字 を 削除 
| カー ソル 位置 の 文字 を 削除 
1 単語 を 削除 ” 
クリ ッ プ ボー ド の 内 容 を カー ソル 位置 に コピ ー す る . | 
指定 し た (反転 表示 され た ) テ キス ト を 削除 し , クリ ッ プ ボー ド に セー プ 
する . ーー | 
| 指定 し た (反転 表示 され た ) テ キス ト を 削除 せ すず, その まま に し て クリ ッ 
プ ポ ボー ド に セー プ す る . 





ミー ロ ゞ ヾ NM ゞ 


S テ Hi | 


3 
次 の タブ 位置 に 移る . _ 
バッ ク ・ タ プ ( 1 つ 前 の タブ 位置 に 戻る ) 
1 行 分 スク ロー ル 。 
1 行 分 スク ロー ル 
1 画面 分 スク ロー ル 
1 画面 分 スク ロー ル 
- 1 画面 分 スク ロー ル 
1 画面 分 スク ロー ル 上 1 
[SHIFT| キー を 押し な が ら カ ー ソ ル の 移動 コマ ン ド ・ キ ー( | 一 | CTRL | | 
| |Q| [|C|) を 押す と , カー ソル が 移動 し た 範囲 が 反転 表示 され , テキ スト 
| が 指定 され た こと に な る . 
次 に 一 致す る 検索 文字 列 を 探す . 
指定 し た テキ スト を 探す . ー ーー 
指定 し た テキ スト を 探し , 新しい テキ スト で 置き 換え る . 


時 





w ー ま 





時 テキ スト の 指定 


クリ ッ プ ポー ド を 介し た テキ スト の ムー プ ノ コ ピー で は , 対象 と な る ブロッ 
ク (テキ スト ) を 指定 し な けれ ば な り ま せん . |SHIFT | + カー ソル の 移動 コマ 
ンド ・ キ ー (中 [CTRL| +|Q|[C) を 押す と , カー ソル が 移動 し た 範囲 が 反 
転 表 示さ れ , テキ スト が 指定 され た こと に な り ま す . 








SHIFT| 二 |」 
[SIUM= 0 / SUM = 0 
FOR K=1 TO 10 ii 只 | 
INPUT A [FIOR K= 1 TO 10 


5 反転 表示 され る 


マウ ス を 用 いて テキ スト を 指定 する に は , マウ ス の 左 ボ タン を 押し な が らら ママ 
ウス を 移動 し ます . マウ ス ・ カ ー ソ ル が 移動 し た 範囲 が 反転 表示 され , テキ ス 
ト を 指定 し た こと に な り ま す . 
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虹 テ キス ト の プロ ツク ・ コ ピー ノム ハープ 


クリ ッ プ ボー ド と いう Quick BASIC が 確保 し て いる 作業 領域 を 介し て , テキ 
スト の プロ ッ ク ・ コ ピー, プロ ッ ク ・ ム ー プ を 行う こと が で きま す . テキ スト 
の ブロ ッ ク ・ コ ピー は , |CTRL | + と 


う に 行い ます . 





SHIFT| 十 |INS 





を 用 いて 次 の よ 


反転 表示 され た プ ブロック 











① 
| SUM=SUM 十 DAT ② 
[1 | | ICTRLI+INS] ヶ Il 、 ボ ド 
で テキ スト を | PRINT SUM oi 









FOR K=1 TO 10 | Quick BASIC が 
使っ て いる 作業 領域 
コピ ビー レン 
50 カー ソル 位置 に ③ ISHIFT+IINS| 


コピ ビー され る 


これ に 対し ブロッ ク ・ ム ー プ ブ は 指定 テキ スト を 削除 し て , 別 の 位置 に 移動 ( ム 
ー ブ ) す る の で ,|SHIFT | + と 十 を 用 いて 行い ます . 


叶 文 字 列 の サー チ と リプ レイ ス 
だ たとえ くば, 次 の よう な テキ スト が あっ た と し ます . 
SUM| = 0 
WHILE |SUM| く 100 
INPUT A 
SUM| = UM| +4 
WEND 
PRINT 


な ん ら か の 都合 で , SUM と いう 文字 を GOKEI に 変え る 必要 が 生じ し た と き 。, 
ぃ いち いち SUM を 探し だ し て GOKEI に 打ち 直し て いて は 大 変 で すし , 見 落 と し 
も 生 し る で し ょ う . こう し た と き は 文字 列 の リプ レイ ス ・ コ マン ド ( S/ ノ 検索 








1C ノ 置換] メニュー) を 用 いて 次 の よう に 行い ます . 
テー ト 中 の SUM は 一 明 に し て GOKEI に 置き 換え られ ます . 


タイ アロ グ ・ ボ ックス 








aig : 書換 され る 文字 下 9: 


各 項 目 の 移 動 は 
1 ITAB で 行う 
T/ 置 挨 後 LGOKEr ーー 新しい 文字 列 









) 1/ ア クティ フウ ィ ン ト “ ウ [ ] M/ 大 小文字 区 別 
* ) 2/ カ レン トウ ィ ン ト “ ウ [ ] W/ 全 体 一 致 





GRPH | 士 |C」 で 選択 で きる すべ て の テキ スト を 置換 する . 
これ を 選択 する と 置換 する か 否 か 
の 問い 合わ せ が 1 つ ずつ 行わ れる . 





文字 列 の サー チ は , | S / 検 索 メニ ュー を 用 いて 次 の よう に 行い 
ます . 次 の 文字 列 を サー チ す る に は を 用 いま す . 





ダイ ィ イア ログ : ・ ボ ックス 


SPRY 







IF と if は 区 別 す る 
SUM と SUMMER は 
区 別 す る 







【 ] M/ 大 小文字 区 別 ー 
本 3 枯 本 に 紅 ER 細 ーー 


画面 に 表示 され て いる テキ スト が 対象 
作業 中 の モジ ュー ル が 対象 
メモ リ 上 の すべ て の モジ ュー ル が 対象 


ーー 検索 
( ) 1/ ア 2 ティ フ " ウ ィ ッ ント“ ウ 
(*) 2/ カ レン トウ ィ ン ト “ ウ 
( ) 3/ 全 価 = 一 一 
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虹 その 他 の 機能 
人 を アン ・ ド ウゥ 機 能 

修正 し た く な い テ キス ト を 誤っ て 修正 し て し まっ た よう みな 場合 は 。 カー ソル 
が その 人 行 に 残っ て いる な ら 。 


+ 
に より 修正 を 行う 直前 の 内 容 に 修復 する こと が で きま す . これ を アン ・ ド ッ 機 
有馬 と 呼び ます . 
ICTRL| |Y| に よる 1 行 削除 で は , カー ソル は その 行 に 残ら な い の で [GRPH 
で は 修復 で きま せん . |SHIFT|+ に より 修復 し て くだ さい . 





3 





人 を タプ ・ サ イズ の 変更 
Quick BASIC で の ディ フォ ルト の タプ ・ サ イズ は 4 文字 に 設定 され て いま す 
表示 メニ ュー に より 変更 する こと が で きま す . 





表示 オプ ショ ン 


| ] S/ ス クロ ー ル バー 


1 、 GRPH 士 IT で 項目 を . ここ に 
T/ タ フ 間 隔 : - ' 
し 」 移し タブ プ ブサ イズ を 入力 する 


自動 構文 チェ ッ ク の OFF 

Quick BASI じ の エディ タ に は 自動 構文 チェッ ク が 付い て いる た だ ため , その 行 に 
誤り が あれ ば エラ ー メ ッ セ ー ジ が 表示 され , 入力 作業 を 中 断 し て し まい ます . 
も し, この よう な て いね いな サポ ー ト が きら いな ら , 自動 構文 チェ ッ ク 機 能 を 
OFF に し て お け ば よい で し ょ う . 





ラ Y ツ 本文 チ テ ェ ッ ク 


これ が 付い て いる と 構文 チェ ッ ク 機 能 は ON. 
この 「『Y/ 構 文 チ ェ ッ ク 」 サ プ メ ニュ ー を 選択 する 
た びに , 構文 チェ ッ ク 機 能 モ ー ド は ON プ OFF 
の トグル 動作 と な り ま す . 


を 1 行 に つなげ る 方 法 
行 の 途中 で | し | を 入力 する と, カー ソル 位置 の 前 後 で 次 の よう に 2 行 に 分 か れ 
て し まり ゆい ます . 


FOR |kl=1 T0 10 
FOR 
lkl=1 To 10 
これ を 1 行 に 戻す に は , カー ソル を 下 の 行 の 先頭 に 移し て | BS| を 押す か , カ 
ー ソ ル を 上 の 行 の テキ スト の 後 端 に 移し IDEL| を 押し ます . 


W 間 ウ テ デ ゴ あず 補え ト 内 に 追加 する 方 法 
l.…| メ ニュ ー に よ り , 他 の ファ イル を 現在 作業 中 の 
テキ スト の カー ソル 位置 の 上 部 に 挿入 する こ と が で きま す 。 








人 旨 加 され る 


ISIUM = 0 
INPUT A 
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4、 ソー ス フ ァ イル の 視 理 


明 プログ ラム の ブリ ント ・ ア ウト 

F プ ファ イル ト HP/ 印 刷 .…| メ ニュ ー に より , メモ リ 上 の プロ グラ ム を プリ 
ンタ に 出力 で きま す . 次 の よう な ダイ アロ グ ・ ボ ックス が 出る の で , プリ ント ・ 
アウ ト す る 男 囲 を 指定 し て くだ さい . 





印刷 一 
( ) S/ 指 定 範囲 ウィ ンド ウ 内 て 反転 表示 され て いる テキ スト 
( ) W/ ア クティ プ ウ ィ ン ド ウ ーー 表示 され て いる 画面 
(* ) M/ カ レン ト ・ モ ジュ ー ル 作業 中 の モジ ュー ル 


( ) A/ 全 体 | メモ リ 上 の 全 モ ジュ ー ル 





時 モジ ユー ル 管 理 

SUBーEND SUB,。 FUNCTION 一 END FUNC で 定義 され た プロ グラ ム を 
サブ プ モ ジュ ー ル (プロ シー ジャ ) と 呼び ます . モジ ュー ル ( プ ブロ シー ジャ ) に つい 
て は 第 7 章 第 3 節 で 説明 し ます . 


人 モジ ュー ル の 画面 へ の 切り 換え 表示 


メイ ン ・ モ ジュ ー ル SHF 二 條 < で 


ズー り 換 え 表 示す る 


メイ ン ・ モ ジュ ー ル が 
表示 され て いる 






SUB XYZ 
サブ ルー チン 本 体 
END SUB 





これ ら の モジ ュー ル は それ ぞ れ 独立 に 管理 され て いる た め , 同じ 画面 に 同時 
に 表示 する こと は で きま せん . |SHIFT| + で 各 モ ジュ ー ル を 画面 上 に 切 
り 換 え 表 示す る こと が で きま す . 











V/ 表 「 」 |F・2) に より , 次 の よう に 
グイ アデ ログ ・ ボ ックス に モジ ュー ル の 一 覧 が 表示 され ます . 

モジ ュー ル 名 を 選択 し. 次 の サブ コマ ンド で その モジ ュー ル の 各種 処理 を 行 
うこ と が で きま す . 


IGRPH|+ |W| …… アク ティ ブ ・ ウ イン ドウ に その モジ ュー ル を 表示 
+B] "mw その モジ ュー ル を メモ リ 上 か ら 削 除 





グ ゲイ アロ グ ・ ボ ックス 
| C/2" ロ 2~ ラ ム 選 択 : 


| W/ ァ ッ テ ィ フウ ィ ン ト “ウー 


<Untit]1ed> 
ABC 


モジ ュー ル 名 を 選択 する 





S/ 分 割 ウィ ント “ ウ | 





人 サ プ ブフ ァイル の ロー ド と 解放 

巡 の よう に 複数 の ファ イル を QB 上 に ロー ド し , 別々 に 管理 する こと が で き 
ます 、 

メイ ン モ ジュ ー ル と し て 定義 され て いる ファ イル の プロ グラ ム が 実行 され ま 
す . 

QB 上 に オン ・ メ モリ され て いる プロ グラ ム の 各 モ ジュ ー ル は , 別 の プロ グラ 
ム か ら 利 用 する こと が で きま す . 
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TEST1. BAS 





TEST2. BAS 


CALL ABC 








刀 ドキ ュ ユメ ント ・ フ ァイル の 作成 


Quick BASIC の エディ タ で , CONEFIG.SYS や AUTOEXEC.BAT な どの テ 
キス ト ・ フ ァイル (ドキ ュ メ ント ・ フ ァイル ) を 作る 場合 
で は 構文 チェ ッ ク 機 能 な ど が 働く た め う まく いき ませ ん . 

テキ スト ・ フ ァイル の 作成 法 を 以下 に 示し ます . 


ディ フォ ルト モー ド 


G① ー 






HN/ ノ 新規 | で メモ リ 上 の プロ グラ ム を 消去 する . 


(②) 





C/ サ プ ブフ ァイル 作成 .…| を 選択 し, 次 の ダイ アロ 


グ ・ ボ ックス 内 の 各 項 目 を 設定 する . 


目 |  。 | 作成 する テキ スト の 
形式 


( )M/ モ ジュ ー ル 
( ) 1/ イ ンク ルー ド 
(*) D/ ド キュ メン ト GRPHI+「D| で 
ドキ ュ メ ント を 指定 


③ 
プ デ 
キ 
ス 
ト を 
いい 
カ 
す 
る 


C ご 
G S 


ーー テ 
キ 
スズ 
1 
る 











と 
保 
存 





IF プ フ ァ イ ル 
ER 
9 
イ 
衝 
キ ト す 
を 
ーー ヤセ 
も 
6 
る 





お 
に 
( 
ーー 
の ) 
ay 
' あ 
WM 
。 
還 
エン ラテ ァイル 
F 
の 
っ 
ル 
ン 
キキ 
| 時 
本 
イ 
こ コ 
に 
コ 
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D、 プ / ツ ゾ 


Quick BASIC に は , トレ ー ス 。 ウォ ッ チ ブレー クボ イン ト な どの デバ ッ ク 
機能 が あり ます . 


明 ト レー ス 機 能 


トレ ー ス 機能 と は , 操作 者 の 指令 (F・8| また は に より プロ グラ ム を 
1 ステー トメ ント ずつ 実行 し て いく 機能 で す . Quick BASIC で は , 実行 (トレ 
ー ス ) され て いる ステ ー ト メン ト が 強調 表示 (緑色 ) され ます . 


FOR K= 1 T0 50 
INPUT A ーーーーーーーーーーーーーーーーー ゴ ーー 強調 表示 . 
CALL ABC F・8| ま た は [F・10] を 押す た びに 


次 の ステ ー ト メン ト に 進む 


SUB ABC 


サ プ ブ プルー チン 
END SUB 





と |F・10 | の 違い は , 呼び 出し た サブ ルー チン (プロ シー ジャ ) の 内 部 も 
トレ ー ス する か 否 か の 点 で す . は 呼び 出し た サブ ルー チン (上 の 例 で は サ 
プル ー チ ン ABC) の 内 部 も トレ ー ス し ます が , で は 行い ませ ん . 


明 プロ グラ ム の 低速 実行 

デバ ッ グ HH エ ノ ト レー ス | メニュー を 選択 し て トレ ー ス ・ モ ー ド を ON 
に し て お き , [SHIFT| 十 |F・5| で プロ グラ ム を 実行 する と , 1 ステー トメント 
単位 で ゆっ くり と 行わ れ ま す . 実行 中 の ステ ー ト メン ト は 強調 表示 され ます の 
で , プロ グラ ム の 全体 的 な 流れ を 見 る の に 便利 で す . 後述 する ウォ ッ チ 機能 と 
組み 合わ せ て 使う と 効果 的 で す . 





暗 ワオ ツチ 機能 


フロ グラ ム 実 行 中 の 変数 や 式 の 値 を . ウォ ッ チ ・ ウ イン ドウ に 刻々 と 表示 す 
る 機能 を ウォ ッ チ 機能 と いい ます . 

第 3 章 の 第 4 節 (P50) で 紹介 し た ダイ アモ ンド ・ リ ング の プロ グラ ム を 例 に . 
ウォ ッ チ 機能 に つい て 説明 し ます . 

に と えば , 変数 r2 の 値 を ウォ ッ チ し た い 場 合 は ,[D/ デ ベッ. 
A グ ウォッ チ の 追加 .….| メ ニュ ー を 選択 し 。 次 の よう に ウォ ッ チ 式 (変数 , 変数 
を 信 む 式 な ど ) を 入力 し ます . 





フォ ッ チ ウイ ンド ウ に 登録 する 式 ・ 変 数 の 設定 : 


と 〆 ペーーー ワ ウォ ッ チ 区 を 入力 する 





変数 2 に つい て も 同様 な 方 法 で 指定 し ます . 
これ で 次 の よう に ウォ ッ チ ・ ウ イン ドウ に ウォ ッ チ 式 が 登録 され ます . 











H/ ヘ ルフ “| 





C/ 関 数 。 





_F/ フ ァイル E/ 編 集 V/ 表 示 R/ 実 行 D/ テ " ハ " ッ ク 
| DTAMOND . BAS 区 。 
1 5 ェ AOND BA Y2: 


-ー--/* ダイ アモ ンド ・ リ ング */--- 


S/ 検 索 





ィ |SCREEN 0: Crs 
> | WINDOw (-320, -200)-(320, 200) 
7 IN = 16 ′ 分割 数 
っ Ang1e = (360 / 1) * 3.14159 / 180 "角度 
ド |FOR k=0TON- 2 
っ SUM = R * COS(k * Ang1e) 

| y1 = R * STN(k * Angle) 

FOR ] = k+ 1 TON - 1 

x2 = R * COS(] * Anqle) 

| Y2 = R * SIN(] * mn 

| LINE を も うす 7 1 ー (2, 2 

ーー タイ レク ト モー ト ~ ーー ーーーー 





メイ ン フ "ロク “ラム: DIAMOND.BAS_ “ 動 作 状況 H 実 行 さ れ い ま せ ん Sgー 








ーーーーーーーーーーーーーーーーーーーーーーーーーー ロ 











00001:009 
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IF・10] で プロ グラ ム ・ ト レー ス す る と , ウォ ッ チ ・ ウ イン ドウ の ウォ 
ッ チ 式 の 値 が プロ グラ ム の 進行 に 応じ て 変化 し ます . 


明 プレ ー ク ボイン ト 


プ ブレー クボ イン ト と は , ブログ ラム の 実行 を 1 時 中 断 す る 位置 ( 行 ) の こと 
で す . プロ グラ ム を デバ ッ グ する と き に , プロ グラ ム の 途中 経過 を 見 る た め に 
止め た い 場所 が あり ます . こう し た と き に , この 位置 に プレ ー ク ポイ ント を 設 
定 し て か ら プ ログ ラム を 実行 する と , プロ グラ ム の 実行 が プレ ー ク ポイ ント に 
きだ た と き に 中 断 さ れ ま す . この と き , ダイ レク ト ・ モ ー ド で 変数 の 内 容 を 調べ 
る な どの デバ ッ グ 作業 が 行え ます . 

ブレ ー ク ポイ ント の 設定 は , 設定 し た い 位置 ( 行 ) に カー ソル を 移動 し , 





を 押し ます . これ で この 人 行 が 赤色 の バー で 表示 され ます . すでに ブレ ー ク ポ ボ 
イン ト が 設定 され て いる 行 で 再び |F・9| を 押す と , ブレ ー ク ポイ ント の 解除 に 
な り ま す . 

プ ブレー クボ ポイ ント は 複数 設定 する こと が で きま す . 


叶 ダ イレ フト ・ モ ー ド 


IF・6| で アク ティ ブ ・ ウ イン ドウ を ダイ レク ト ・ モ ー ド ・ ウ イン ドウ に 移す こ 
と で , ダイ レク ト ・ モ ー ド で の 仕事 を 行う こと が で きま す . 

ダグ ダイレクト ・ モ ー ド と は , BASIC の コマ ンド お よび ステ ー ト メン ト を 書き ,| ノ | 
を 入力 する こと で ,。 その コマ ンド お よび ステ ー ト メン ト を 即座 に 実行 する も の 
で す . ダイ レク ト ・ モ ー ド は 主 に デバ ッ グ 作業 で 使い ます . 

だ と えば 。 変数 々 2。 2 の 内 容 を 調べ だ た だい とき は 。 





だ も ます 、 


グイ レク ト ・ モ ー ド は 1 行 に 収まる 範囲 で 書き ます . 次 の よう な マル チ ス テ 
ー ト メン ト (複数 の ステ ー ト メン ト を : で 区 切っ て 1 行 に し た も の ) を 書く こ 
と が で きま す . 


for k=0 to 10:? a(k):next k. 


これ で 配列 a(0) 一 a(10) の 内 容 が 表示 され ます . 


ZA シ ルン 人 


アッ クラ に する 所 り を 人 0 に な よる 。 こ の り を 介し くり 
去る こと を debug ( 虫 取 り ) と いい ます . 
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0. 実行 可能 ノ ァ イル (EXE) の 作 有 


イン タプ リタ は , プロ グラ ム を 開発 し て いく 上 で は 対 活 型 で で きる た め 便 利 
で す が , 1 度 完成 し た プロ グラ ム を 保存 し て お く 〈 場 合 に は ソー スプ ログ ラム の 
レベ ル で し か で きま せん . し た が っ て 完成 し た プロ グラ ム を 実行 させ る 場合 , 
いち いち イン タプ リタ (QB) を 起動 し て その 上 で プロ グラ ム を 実行 し な けれ ば 
な ら な いと いう , 非 効率 的 な 面 が 出 て し まい ます . 


明 コ ン バ イ ラ の 起動 


Quick BASIC で は , QB 上 か ら BASIC コ ン パ イラ (BC.EXE, LINK.EXE) 
を 呼び 出し , メモ リ 上 の ソー スプ ログ ラム を コン パイ ルブリン ク グ し て 実行 可能 
ファ イル (EXE) を 作成 する こと が で きま す 。 

DIAMOND.BAS と いう ブロ グラ ム を QB 上 か ら コ ン パ イル ブリ ンク する 方 
法 を 以下 に 示し ます . 





ダイ アロ グ ・ ボ ックス 


N/EXE フ ァイル 名 : 





作成 形式 : “ あ 
由 ( ) X/ ラ ンタ イム 分 離 型 EXE フ ァイル [ ] D/ テ “ハハ " ゥ ク “ コ ー ト “ 
ーーー テ ( * ) A/ 者 立 型 EXE フ ァイル 





3 


| 5/EXE フ ァイル 作 成 後 終了 


GRPH| 士 X| ま た は GRPH」 士 IM, また は | で 
GRPH 士 IAl で 。 どちら か を コン バイ ル が 開始 され る . 
美 択 す る . 


上 の 操作 で 次 の よう に コン パイ ルプ ブリ ンク が 開始 され , ドラ イブ B に DIA 
MOND.EXE と いう 実行 可能 ファ イル が 作成 され ます . 


@ QB か ら コ ン バ イ ラ (BC.EXE.LINK.EXE ) を 起動 し た 様子 


BC B:\DIAMOND. BAS/T/C:512>: 

MicroSsSoft (R) QuickBASIC KANJI Compiler Version 4.20 
(C) Copyright Microsoft Corporation 1982-1988。 

All rights reserved . 


43527 Bytes Available 
42325 Bytes Free 


0 Warning PError(s) 
0 SeVere PBrror(s) 
LINK /EX DIAMOND, A:\DI AMOND . EXE 。 NUL 。 : 


Microsoft (R) Overlay Linker Version 3.65 
COPYYTight (C) Microsoft Corp 1983-1988.。 All rights reserved . 


@$ コ ン バ パイル / リ ンク の 流れ 


り ロケ ー タ プル ・ 





ソー スプ ブ プログラム 
| DIAMOND. BAS 





オプ ジェ クト 
.OBJ 





BCOM42A. LIB 一 独立 型 ラ イブ ラリ 
ラン タイ ム 分 離 型 
BRUN42A. LIB ライ ブラ リ 


実行 可能 ファ イル は , コマ ンド ライ ン か ら , 
B>DIAMOND . 


と する こと で 実行 で きま す . 
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実 行 可能 ファ イル の 作成 形式 


実行 可能 ファ イル の 作成 形式 は 。 ラン タイ ム 分 離 型 と 独立 型 の 2 種類 が 指定 
で きま す . 


人 す ラ ンタ イム 分 離 型 

リン ク 時 に 完全 な (実体 の ある ) ライ ブラ リ を 組み 込ま ず に , ブロ グラ ム 実 
行 時 に BRUN42A.EXE と いう ラン タイ ム ・ ラ イブ ラリ を メモ リ 上 に ロー ド し て 。, 
これ と 協力 し 合っ て 実行 を 行う け タ イプ の .EXE フ ァイル で す . 


ーー 
BRUN4ZALEXE 





メモ リ 


ラン タイ ム 分 離 型 の .EXE は ファ イル ・ サ イズ を 小さ くす る こと が で きま す 
が , 実行 時 に 必ず ラン タイ ム ・ ラ イブ ラリ BRUN42A.EXE が な けれ は な り ま せ 
ん . 


$ 独立 型 

リン ク 時 に 完全 な ライ ブラ リ (BCOM42A.LIB) を 組み 込ん だ .EXE フ ァイル 
eV 

独立 時 の .EXE は ,。 ラ ンタ イム 分 離 型 の .EXE に 比べ ファ イル サイ ズ は 大 きく 
な り ま す が , 単独 で (BRUN42AEXE の 協力 な し で ) 実行 する こと が で きま す . 


ニニ ーーーーーー モ ーー ーー ニー 





第 5 章 


プロ グラ ム を 知ら な い 
あな た に 





この 章 は , は 。 まっ だ く ブ プロ プラ ミン グ の 経験 が な いと い 
つ 人 の だ め に 書 ガ れ て いま す . 
プロ ブラ ム を 作る た だめ に は , ステ ー ト メン ト の 役割 
変数 の 概 恋 , デ 
し つかり お さえ て お ぐ こ と が 大 切 で す 





|. プログ ラミ ング 0 話 


時 プロ グラ ミン グ っ つて 何 


先生 が 生徒 (Eluza) に 向かっ て , 
"よう こそ BASIC の 世界 へ " と いう 文字 を 5 回 書き な さい 」 
と 言っ だ と し ます .。 さて 。 同じ こと を コン ピュ ニタ に させ る た め に は 。 この よ 
うな 日 本 語 で は 話 は 通じ ませ ん . 
そこで, BASIC 言 語 と いう コン ピュ ー タ が 理解 で きる 言葉 を 用 いて コン ピュ 
ー タ と 話す の で す . 
さっ そく BASIC で 書い て み ま し ょ う . 


FOR |=1 TO 5 
PRINT よう こそ BASIC の 世界 へ " 
NEXT | 


この 言葉 を BASIC は 次 の よう に 解釈 し ます . 

ます , FOR を 見 て , |「 く り 返 すん だ な 」 と 理解 し ます . それ な ら , 何 回 くり 返 
す の ? | エニ =1 TO 5 と 書い て ある か ら 5 回 だ な . それ で は 何 を くり 返す 
の 7? IPKRINT “よう こそ BASIC の 世界 へ "| と 書い て ある か ら , “ "内 の 文 
字 を CRT に 出力 (print) する ん だ な . 「NEXTI」? ここ で くり 返し の 範囲 が 
終わ り だ な . 

この よう に コン ピュ ー タ が わか る 言葉 を 使っ て 。 コン ピュ ー タ に や ら せ た だ たい 
仕事 を 文章 に し て いく こと を プロ グラ ミン グ と いい ,。 コン ピュ ー タ 言葉 で 書い 
た 文章 の 集まり を プロ グラ ム と いい ます . 
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虹 プロ グラ バム を 構成 する 単語 

私 達 が 日 常人 使っ て いる 言葉 は , 名 詞 , 動詞 と いっ た 単語 を ある 規則 を 並べ て 
1 つの 文章 に し て いま す . ブロ グラ ム も , 次 の よう に 分 類 さ れ た 単語 を 並べ て 
文章 を 書い て いき ます . 





表 5-1 
スチ ー ト プン ドー1 
関数 

演算 子 

変数 















FOR TO _ NEXT PRINT _ 
SIN COS 











プー ーー ーー 当 
唱 Oulck BASIC は 行 番号 不要 
従来 の BASIC で は , プロ グラ ム の 各行 の 先頭 に 行 番号 を 付け 。 こ の 行 番号 に 
より プ ブログ ラム を 管理 し て いま し た . 
行 番号 . Quick BASIC で は 不要 
100 FOR |=1 TO 5 
110 PRINT “よう こそ BASIC の 世界 へ " 
120 NEXT | 


この 行 番号 は 主 に GOTO 文 の 飛び 先 を 示す た め に 使わ れ た の で す が , Quick 
BASIC は 近代 的 流れ 制御 構造 (ブロ ッ ク IF, DO…LOOP な ど ) を 完備 し て いる 
だ め , GOTO 文 を 使う 必要 は ほとん ど あ り ま せん . そこ で , Quick BASIC で は 
行 番号 を 付け な く て も よい きま り に し まし た . な お , 行 番号 を 付け て も 誤り で 
は あり ませ ん . 


7. BASIC が あら か じ め 定 め て いる 


ス テー トメ ント 


フロ グラ ム 中 に 記述 する BASIC の 基本 命令 で 120 種 類 程 あり ます . 


GOWB-RETVRN | 
| TF.THEN-EE-ENDE| 


| INPUT 
PRINT 
PRINT USING 
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唱 関 数 


BASIC で /2 の 値 を 求め た いと き は , A=SQR(2) と し ます . これ で 変数 A に 
2 の 値 が 求め られ ます . 

この よう に ( ) 内 に デー タ を 与え , その 結果 を 得る 命令 を 関数 と 呼び ます . 
関数 は 90 種 類 程 用 意 さ れ て いま す . 主 な も の は , SIN, COS, LOG な どの 算術 
関数 ,。 LEFT$, MID$, RIGHT $, LEN な どの 文字 列 操作 関数 で す . 





ASIC 信 2799 に 
| 組 2A ま れ て いる 
』 を 氷 め < 

寺 | 2075G 






画 演算 


中 算 と いう 言葉 は ちょ っ と か た い 表 現 で す が , 簡単 に は た す ,。 ひく 。 かける. 
わる な どの 計算 を 連想 し て も ら え ば よい と 思い ます . この よう な 計算 を 行う 記 
ち が 信和 算 子 で す . 

A=5 十 6 
演算 子 


これ は 5 と 6 を 加え , その 結果 を 変数 人 に 代入 し な さい と いう 意味 で , 十 が 加 
算 を 行う 演算 子 で す . 

BASIC の 演算 子 の 中 で , 加減 乗除 を 行う 演算 子 (算術 演算 子 ) を 以下 に 示し 
ます 。 






3 
4 
5 
5 
整数 の 除算 6 
殆 数 除算 の 余り 7 
加算 8 
減算 8 


注 ) 優先 順位 は 数 字 の 小さ いも の ほど 高い . な お ,BASIC の 演算 





す の 優 先 順位 は 1 一 15 の 範囲 で ある (詳し く は 付録 参照 ). 


算 子 の 優先 順位 と いう の は , た と えば , 


10 十 20*30 


と いう 式 が あっ た と き , 十 と *※ で は * の 方 が 優先 順位 が 高い の で ,20*30 か ら 先 
に 計算 され ます . 10 二 20 から 計算 し た けれ ば 。 か っ こ を 使っ て 


(10 十 20) * 30 


と し ます . 

整数 型 の 割り 算 5\\ 3 は 1.666… と は な ら ず , 小 数 点 以 下 は 切り 捨て られ 1 と 
な り ま す . また , MOD は 余り を 求め る 演算 子 で .5 MOD 3 は ,5=3 の 余り 
が 求め られ 答え は 2 で す . な お MOD 演 算 子 の 両 わ き は 必ず 1 つ 以上 の 空白 を と 
ら な けれ ば な り ま せん. 





元 生 
上 IUZg 





ーー みお ルー2) 2 を 肝 自 し て こら ん 。 
・ー 2^2 は 一 より ^ の 方 が 優先 順位 が 高い か ら 2 ? を 計算 し それ に 一 | 





を 付け る か ら 一 4, (一 2)^2 は (一 2)? だ か ら 4 で す . 


:A MOD 5 の 結末 が 0 に な る の は A が どん な 値 の と きか な . 
・ 5 で 削っ た 祭り が 0 と いう こと は , A=0, 5, 10, 15… つ まり , 


A が 5 の 倍数 の と き で す . 
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3. 人 数 こい つ 不 可 朋 ね も の 


虹 プロ グラ マ が 決め る 言葉 (変数 名 ) 

FOR や PRINT な どの BASIC が あら か じ め 定 め た 言葉 ビ け で は プロ グラ ム は 
書け ませ ん . 

た と えば , 5 回 くり 返せ と いう 命令 を , 





FOR(5) 
な ど と 書け た ら 楽 な の で す が , 実際 は , 
FORI|= ニ 1 TO 5 


な ど と し て いま す . 

つま り , コン ピュ ー タ は それ ほど 理解 力 が よく な い の で , 5 回 くり 返す と い 
うこ と を , I と いう 道具 を 使っ て 管理 し て いる の で す . この 1 を 変数 と 呼び , 
それ に 付け た 名 前 を 変数 名 と いい ます . 変数 名 は , プログ ラマ が 適当 に 付け て 
使用 する こと が で きま す . し た が っ て 特に I と いう 名 前 で ある 必要 は な く , A 
で も COUNT で も 好き な 名 前 を 付け れ ば よい の で す . 


変数 の 役割 
プロ グラ ム を 書く 上 で , 変数 の 役割 を し っ か りお さえ て お く 〈 必 要 が あり ます . 
た ( ほ 。 
A =10 


と する と , A に 10 が 代入 され ます . 今 A の 値 は 10 で す が , 
A=A 十 1 


と し まし ょ う . これ は A の 内 容 に 1 を 加え , それ を A の 新しい 値 と し て 代入 し 
な さい と いう こと で すか ら , A の 値 は 11 に な り ま す . 

つま り , 変数 A は 値 を 入れ る 容器 の よう な も の で , 代入 され る 値 (数 ) に よっ 
て ,、 そ の 内 容 が 変わ る の で 「 変 わる 数 ] と いう 意味 で 変数 と いう ふう に 呼ば れ 
る の で す . 

逆 に 。10 と か 1 の よう に プロ グラ ム 中 で 変化 し な い 数 を 定数 と 言い ます . 








2 士 ・ それで は 変数 A の 内 容 を 2 倍 す る 文 を 書い て みな さい . 
EIUZa :A= ニ A* 2 です. 
て 生 ・ よ ろ し い . それ で は A 十 B の 結果 を C に 入れ る 文 は どう か な . 
EIUZa :C じ = ニ A 十 B で す . 
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時 変数 名 を 付け る こき の きま り 


変数 名 は プロ グラ マ が 勝手 に 付け れ ば よい の で す が , 次 の よう な きま り を 守 
っ て くだ さい . 


@ 名 前 の 先頭 文字 は アル ファ ベッ ト で 始ま ら な けれ ば な り ま せん . だ た と えば 
1 A の よう な 変数 名 は 認め られ ませ ん . 

@ 名 前 の 2 文字 目 以 後 は アル ファ ベッ ト , 数 字 , ピリ オド (.) が 使用 で き 
ます . 

@ 名 前 の 長 さ は 最大 40 文 字 ま で で す . 

@ 子 約 語 (コマ ンド , ステ ー ト メン ト , 関数 ) は 使用 で きま せん が , 名 前 の 
一 部 に 入っ て も か まい ませ ん . た と えば FOR は 認め られ ませ ん が FORCE 
は 認め られ ます . 

@ 大 文字 と 小文字 は 同じ も の と し て 扱わ れ ま す . つま り SUM, Sum, sum な 
と は 同じ も の で す . 

@ 元 頭 を FN で 始め る と 関数 名 (DEF FN) と し て 扱わ れ ま す . 


注 ) BASIC の 予約 語 の 一 覧 を 付録 に 載せ まし た の で , 変数 名 を 付け る と き に は この 表 
を 参考 に し て くだ さい . 





・GOKEI,。 IF, ヘイ キン , 1 A, P.A の 中 で 変数 名 と し て 誤っ て いる 
も の を あげ て ご らん . 

・ [IF」 は 了 予約 語 , 「 ヘ イキ ン 」 は カタ カナ , 「 1 Al は 数 字 が 先頭 に あ 
る か ら , それ ぞ れ 変数 と し て 認め られ ませ ん . 








4、 型 に こだわ る コン ピュ ー タ 


虹 型 つ て 何 ? 


私 達 は , 5 も 5.0 も 同じ よう な も の と 考え て いま す が , コン ピュ ー タ の 世界 で 
は デー タ の 型 を 重視 し て いて , これ ら を 違う も の と し て 区 別して いま す . 前 者 
の よう に 小数 点 が 付か な いも の を 整数 型 。 後者 の よう に 小数 点 が 付く も の を 実 
数 型 と いい ます . 

と うし て , この よう に デー タ の 型 を 区 別 す る の か と いう と , デー タ を 変数 に 
入れ る と き に デー タ の 大 き さ が 問題 に な る か ら で す . 変数 と いう 器 の 容量 は 変 
2 目 在 で は な く , 定量 が 決ま っ て いる の で , その サイ ズ の デー タ し か 受け 入れ 
る こと は で き な い の で す . そこ で , デー タ の 型 と いう も の を 定め 。 原則 的 に デ 
ー タ の 型 の 異な る も の の や り と り を 行わ な いよ うに 制限 し て いる の で す . 








(ババ 4 ト ) 


だ と えば , 整数 型 の 変数 に 実数 型 デ ゲー タ を 強引 に 入れ よう と する と . 小数 占 
以下 は 小数 点 第 1 位 で 四 捨 理 入 され ま す . 


| 才 
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時 OUICK BASI じ の デー ツ 央 


Quick BASIC に は 次 の 5 つの 基本 デー タ 型 が あり ます . 













型 | サイ ズ | 扱え る 値 の 範囲 | っ 
ー32768 一 32767 | 100 や 5 と いう 整数 を 扱う 弄 















| 2147483648 ーー 

っ 方 有効 相 > 弄 ! 
ER | 100000 の よう な 有効 桁 の 長い 整数 を 扱う 型 

ー3.402823E 十 38 


、 [ ) 方 小雪 占 FL っ 現 
ー 3 402823E 二 38 3.14159 の よう な 小数 点数 を 扱う 型 






| 3.1415927… の よ う な 有効 杵 の 長い 小数 点数 を 
| 扱う 弄 


| -1.797633134862316D†308 
~1.797693134862316D+308 





文字 型 ee ' 大 32767 文 字 | Hello の よう な 文字 を 扱う 型 

固定 長 

注 ) E+38 は 1038 を 意味 し ます . 
D 寺 308 は 10?% を 意味 し ます (D は Double の 意味 ) . 


な お , 各 型 の 変数 は 変数 名 の 後に %,&,!, れれ $ を 付け て それ ぞ れ の 型 を 区 


別 し ます . 
し 丈 数 型 
人 ww 倍 長 整 数 型 
Al 。 …… 単 精度 実数 型 . 一 般 に ! を 省略 し て 単に A と 書く . 
oo 倍 精度 実数 型 
A$  ……| 文字 型 


単 精度 実数 型 を 示す ! は 一 般 に 省略 し , 単に 変数 名 だ け を 書き ます . つま り , 
いま まで 何 の 気 な し に 使っ て いた 変数 の デー タ 型 は 単 精度 実数 型 だ っ た の で す . 
この よう な 基本 デー タ 型 以外 に も , Quick BASIC は レコ ー ド 型 を サポ ー ト し 
ます . これ に つい て は 第 7 章 を 参照 し て くだ さい . 








コン ピュ ー タ の 世界 は 1 と 0 の 2 つの 値 だ け を と る 2 進数 の 世界 で す . た と 
くば 10 進 数 の 9 は 2 進数 で 1001 と 表せ ます . この 各 桁 を ビッ ト と 呼び ます . 1 
ビッ ト を 8 つつ 並べ た 大 き さ を 1 バイ ト と 呼び , 記憶 領域 の 大 き さ を 表す 基本 単 
位 と し ます . | 





ノーー 1 つの 記憶 単位 を 
/ ビッ ト と 呼 ぶ 





0 0 0 0 1 0 0 1 


ーーーーーーーーーーー> ーーー ご デー 


8 つの ビッ ト を 1 組 に し て バイ ト と 呼ぶ 








1 バイ ト で 表せ る 値 は , 00000000(0) 一 11111111 (255) の 256 種 の 数 で す . た だ 
し , これ は 絶対 値 で 表し た も の で , 負 の 数 まで 扱う 場合 は , 256 種 の う ちの 上 半 』 
| 分 を 負 の 数 に 対応 させ , 一 128 一 127 の 男 囲 が 1 バイ ト で 表せ る 男 囲 に な り ま す . | 


符号 付き 


0 


] 
2 
さ 








天 B 記 


あな た が 創る 
Quick BASIC の 世界 











いよ いよ Quick BASIC を 使っ て BASIC の 世界 へ の 
旅立ち で す . 
最初 の うち は 多く の BASIC ス テー トメ ント を 覚え る 
、 和 め 要 は あり ませ ん . デー タ の 入出 力 方法 , 流れ 制御 文 の 
使い 方 を し つか りお さえ て お け ば , ガ な り の プロ プラ ム 
上 み ける よう に な り ま す ) 


レキ ーー ーーーーーーーー 一 dg 








1 、 コ ノビ ピュータ と の 対話 


員 デ ー ツ の 入力 こ 出力 


コン ビ ピュータ が いく ら す ば らし い 結 果 を 出し て いた と し て も , その 結果 が 私 
達 に 見 えな けれ ば 何 の 役 に も 立ち ませ ん . 

フロ グラ ム で は , 変数 と いう も の を 使っ て いろ いろ な 処理 を 行っ て いま す が , 
その 変数 に キー ボー ド か ら デ ー タ を 入力 し た り , その 変数 の 内 容 を スク リー ン 
に 出力 し だ た り し な けれ ば な り ま せん . 

これ を 行う 和合 令 と し て 。, 


INPUT (イン ブッ ト )…… デ ー タ の 入力 
PRINT (プリ ント ) …… ボ デー タ の 出力 


が あり ます . 
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だ と る くば, 変数 A, B に デー タ を 入力 し その 加算 結果 を 変数 C に 求め て 表示 
する プロ グラ ム は 。 次 の よう に な り ま す . 


INPUT A, B 
C= ニ A+B 
PRINT Kotae= 「:C 


この フロ グラ ム を 実行 する と, 次 の よう に ? が 表示 され デー タ の 入力 要求 が 
あり ます の で , デー タ を カン マ (, ) で 区 切っ て 入力 し , 最後 に キー を 押し ま 
す . これ で 変数 A 人 と B に デー タ が 格納 され ます . 


委 数 に 格納 され る 
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ーー ーー ー ーーーーー ーーーーーー 


kotae ニ 30 


\ 変数 の 内 容 が 出力 され る 





プロ グラ ム 


刀 INPUT (デー タ の 入力 ) 


INPU] 文 を 使っ て 変数 A 人 に デー タ を 入力 する に は 次 の よう に し ます . キー 
ボー ド か ら |1I[OL 5|[ 有 | と 入力 する と 10.5 が 変数 A に 入り ます . 


INPUT A - 





? 10.5 . 





、 INPUT 文 に より 自動 的 に 表示 され る 


デー タ を 2 組 以上 入力 する に は , 変数 名 を カン マ (, ) で 区 切っ て 並べ ます . 
また デー タ 入 力 時 の デー タ の 区 切り も カン マ (, ) を 使い ます 」 


が 


LO | 


,( カ ンマ) を デー タ の 区 切り と する 





デー タ 入 力 の と き , た だ 「 ? 」 が 出 て いる だ け で は 何 の デ ー タ を 入力 する の 
か 操作 者 に わか ら な い の で , 次 の よう に メッ セー ジ を だ すこ と も で きま す . 


メッ セー ジ と 変数 の 区 切り は :( セ ミコ ロン ) 


- 汗 
INPUT アナタ ノ ネ ン レ イハ 「: YEAR 


アナ タ ノ ネ ン レ イハ 720. 





ーー ーーーーー ーー ーー デー ーーー 。 - == ニ ーー = 系 - = ーー ーーーーーーー ーーーーーーーー 


| INPUT 文 の 寺 


ーー ーー- ーーーーーーーーーーー- ーー ーー 一 ーー 一 ーー = 


INPUT [“ メ ッ セ ー ジ "”: ] 変数 [, 変数 …] 





メッ セー ジ を 出力 し , デー タ 入 力 を 受け 付け ます . 入力 デー タ が 複数 の と き 
は , カン マ (, ) で 区 切っ て 入力 し ます . これ ら の デー タ は 対応 する 変数 に 代入 
され ます . デー タ の 型 と 変数 の 型 は 一 致し て いな けれ ば な り ま せん . た だ し 整 
数 型 と 実数 型 は 厳密 な 型 チ ェ ッ ク は 行わ れ な い の で 5 と 入力 し て も 5.0 と 入力 
し て も よく , 受け 取る 変数 の 型 に 合わ せら れ ま す . メッ セー ジ は 省略 する こと 
が で きま す . この と き は 単に 「? 」 が 表示 され ます . 





_EIuzZa : 書式 の 書き 方 は [ ] な ど が 入っ て いて わか り に くい で すね . 
完 生 そう だ ね ,。 上 の 書式 は , 


INPUT 変数 
INPUT "メッセージ" : 変数 
INPUT "メッセージ" : 変数 . 変数 





な ど と いう , すべ て の 書き 方 を まとめ て 書い て いる の で 最初 の うち 
は わか り に くい か も し れ な い . し か し こう し た 書式 の 見 方 に も 慣れ 
て お いた 方 が いい . [ ] で 囲ま れ た 項目 は 省略 する こと が で きる と 
いう こと を 示し て いる . [ ] を 付け る と いう 意味 で は な いか ら 誤 解 
し な いよ うに . 
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PRINT (デー タダ の 出力 ) 


PRINT 文 を 使っ て 変数 A の 内 容 を 出力 する に は 次 の よう に し ます . も し A 
の 内 容 が 10.5 な ら CRT に 10.5 が 表示 され ます . 


PRNT Aー ーー / ノ / 向 





ーー W 


PRINT AB 





10.5 
デー タ を 2 組 出 力 す る に は , 次 の よう に 変数 を カン マ (, ) で 区 切り ます . 





カンマ (,) の 代わ り に セミ コロ ン (:) を 使う と 。 前 の デー タ に 引き 続い て 次 
の デー タ が その 横 に くっ つい て 出力 され ます . 


PRINT _A::B 






ーー _ 数 字 の 前 後に 1 文字 分 の 空白 が 自動 的 に と られ る 


挫 の よう に 文字 列 を 出力 する こと も で きま す . 


PRINT “gokei=":SUM 





また , 出力 する デー タ は 変数 ば か り で な く , 次 の よう な 式 (変数 や 定数 を 演 
算 子 を 用 いて つなげ た も の ) を 書く こと も で きま す . 


PRINT A+B 〆10. 
こと 


30.5 


PRINT 文 の 書式 


PRINT | データ {: ) デー タ …] 





デー タ と し て は 変数 (A, SUM な ど ), 定数 (5, “Hello" な ど ), 式 (A+ 


smPB, A*※ ネ ZZ など ) を 書く こと が で きま す . 


デー タ と デー タ の 区 切り は カン マ (, ) また は セミ コロ ン (:) を 使い ます . 


」 の と き は 出力 デー タ の 間隔 は 14 文 字 ど ご と に と られ ます . [ : 」 の と き は 直 
前 に 出力 され た デー タ に 引き 続い て 出力 され ます . 


デー タ を まっ た く 省 略し た PRINT 文 は 改行 の み を 行い ます . {[ } は この 中 


に 書か れ た 項目 の いずれ か 1 つ を 選ぶ こと を 意味 し て いま す . 





て 士 ・A の 内 容 が 100, B の 内 容 が 50 の と き 。, 


PRINT “gokei=": A: heikin=”: B 





の 出力 は どう な る か ね . 
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刀 PRINT USING ( 員 力 幅 を 指定 し た 出力 ) 

PRINT 文 で 出力 する 場合 は , 出力 デー タ の 出力 幅 (フィ ー ル ド ) を 指定 で き 
ませ ん . PRINT USING 文 を 使う と 出力 幅 を 指定 する こと が で きま す . PRINT 
USING 文 は # を 用 いて 整数 部 と 小数 部 の 桁 数 を 指定 し ます . 


PRINT USING 人 #### # せ , 人 A 










デー タタ は フィ ー ル ド に 太 づ めで 
則 力 され ,。 空い た 左 は 空白 が と 
られ る . 


還 問 5 


まだ , デー タ は 1 つ だ け で は な く セ ミコ ロン ( : ) で 区 切っ て 複数 並べ る こと 
が で きま す .。 


iM USING #### ##" :AiB LA | レ 9 レ 





な お , 復 数 デー タ の 出力 で 各々 出力 幅 が 異な る と き は , # に よる 書式 指定 を 
空 日 で 区 切り ます . この と きこ の 空白 も デー タ と し て 出力 され ます . 


PRINT USING 作 が # が ## すこ ##### ##"・A:B:C 


し 整数 部 5 桁 小数 部 2 桁 


HEH 
し 整数 部 3 桁 。 小数 部 1 本 


| ー 整 数 部 3 桁 






” の 中 に , 書式 制御 文字 (., 交 など) 以外 の 文字 が あれ ば , それ は その ま 
ま 出 力 さ れ ま す . 


PRINT_ USING "gokei 三 ##### ・heikin 三 ### # SUM:AVE 
ee 


dEREHHHHFEEHEHIHIFH FE 


ーー 
本 トー コ 








/. コ ノビ ユー ツ 得 意 披 ・ く り 返 し 


ブロ グラ ム を 作っ て いく 上 で 基本 と な る 命令 は 。 くり 返し や 条件 判断 と いっ 
だ た ブロ グラ ム の 流れ を 制御 する も の で , これ を 流れ 制御 文 と いい ます . 

コン ピュ ー タ は 人 間 と 違っ て 同じ こと の くり 返し が 得意 で す . ここ で は 
BASIC の 基本 的 な くり 返し 文 を 説明 し ます . 


時 FOR 又 


IQuick BASIC] と いう 文字 を 色 を 変え な が ら 7 回 表示 する プロ グラ ム を 。, 
FOR 文 で 書く と 次 の よう に な り ま す . 


FOR K= テ 1 TO / 





COLOR K 表示 色 を 変え る 命令 .。K=1 な 
PRINT “Ouick BASIC" っ 青 , K ニ 2 な ら 緑 -… 
NEXT K 


この FOR 文 は 氏 の 値 を 1 か ら 始 め , ルー プ を 回 る た びに 1 増加 させ な が ら , 
K の 値 が 7 に な る まで FOR と NEXT で 囲ま れ た 文 を くり 返し ます . 


FORーNEXT 文 の 一 般 形 は 次 の よう に な り ま す . 





Fc 変数 定数 , 式 が 書け る 
= 初期 値 TO 最終 値 STEP き さ み 値 


き さ み 値 が 1 の と き は こ の 項 を 省略 て さる 


FOR ルー プ 変 数 








くり 返さ れる 文 


NEXT ルー プ 変 数 


ー 同 じ 名 前 で ある こと 





これ で FOR と NEXT で 囲ま れ た プロ グラ ム を 所 定 の 回 数 だ け く り 返 し ます . 
所 定 の 回 数 と は , 初期 値 か ら 最終 値 ま で ルー プ を 1 回 くり 返す た びに , きざみ 
値 で 示さ れ た 値 ず つ 増 加 ま た は 減少 させ て いっ た 回 数 で ,。 この 回 数 を 管理 し て 
いる の が ルー プ 変 数 で す . 

目 分 な り に ルー プ 変 数 と し て よく 使う 変数 名 を , た と えば , 1, 」, K な ど と 決 
め て お く と ブロ グラ ム が 読み や すく な り ま す . 初期 値 , 最終 値 ,。 きざみ 値 に は 
変数 , 定数 、 式 を 書く こと が で き , その 値 が 正 で も 負 で も 小数 で あっ て も か ま 
ぃ いま せん . きざみ 値 が 1 の と きだ け STEP 以 降 を 省略 する こと が で きま す . 
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FOR の 後 の ル ー プ 変数 と NEXT の 後 の ル ー プ 変数 と が 異な っ て は いけ ませ ん . 
た だ し , NEXT の 後 の ル ー プ 変数 は 省略 する こと も で きま す が , ルー プ 構 造 を 
は っ きり させ る 意味 で 。 で きる だ け 付 け て お いた ほう が よい で し ょ う 。 











て 生 ・N を 0 か ら 360 ま で 20 ほ きざみ で と いう の を FOR 文 で 書く と どう な る 
か だ な 、. 
FEIUZa :FORN=0 TO 360 STEP 20 で す . 
還 昌 肖 胃 2 し 士 ・ で は A を 10.0 か ら ー5.0 ま で -ー0.5 き ざ み で と いう の を , FOR 文 で 書 
いて ご らん 。 


FOR ムー10.0 1 り 0 一 5.0 SITEP 一 0.5 で す . 


ーー デー ナー ーーー ーー ニー ーー ーーーーー ーー ーーーー 





胃 定期 預金 の 元利 合計 


元 金 G 円 , 利率 R% で Y 年 預け た と き の 複 利 で の 元利 合計 は 


M=G(1 二 R グ 100)* 
で 求め る こと が で きま す . 


G,。 R, Y の デー タ を 入力 し , 1 年 目 一 Y 年 目 の そ れ ぞ れ の 元利 合計 を 求め 
て 表示 する プロ グラ ム を 作っ て み ま し ょ う . 








| 

| 

| 

| "ニー--/* 定期 預金 の 元利 合計 */--- 
な の 

INPUT " 元 金 "?, G# で 倍 精 度 実数 型 を 用 いる 


INPUT "預入 れ 年 数 ": 
INPUT "利率 %": R | 


FOR K = 1 TO Y 
M# = G# * (1 + R / 100) ^ K 
PRINT Ki: "年 目 "。 M#ji "円 " 
NEXT K 
END 





上 骸 巡 
べべ ざ . 


1039999.961853027 
1081599.950790405 
1124863.862991333 
1169858.455657959 
1216652.750968933 
1265318.870544434 
1315931.558609009 
1368568.778038025 
1423311.233520508 
1480243.682861328 


元 
頂 
利 
1 
2 
3 
4 
5 
6 
7 
8 
9 
1 


措 抽 寺 持 半 簡 反 境 
回 甲田 皿 皿 皿 皿 皿 加 
NR:P:R:P: ド PF:P:: 


の 
| 
軸 





FIUZGd ・G# れ M# と 倍 精 度 型 実 数 を 使っ て いま すね . 

2 士 ・1000000 と いう 大 き な 数 を 扱っ て いる か ら ね . も し , G, M で や っ た 
ら 7 桁 を 超え る 数 は 指数 で 表示 され る よ . 金額 が 指数 表示 と いう の 
は 変 だ ろう . 





倍 精 度 実数 型 
て ーー 
扱う こと が で きる 








ゴー ュ メ ント 


| 単 一 引用 符 (”) の 後に コメ ント (注釈 ) を 書く こと が で きま す . コメ ント は 

』 フ ログラム の 意味 を 人 間 に と っ て わか りや すく する た め に 書く も の で , BASIC 

| で は 単 一 引用 符 (') に 続く 文字 列 を , コメ ント と し て 読み 飛ば し ます . コメ ン 
ト に は 日 本 語 も 書け ます . 
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唱 庁 差 を な くす 


さき ほど の ブロ グラ ム の 実行 結果 を 見 る と , 1 年 日 の 元利 合計 は 1039999. 
961… と な っ て いま す が , これ は 正確 に は 1040000 で す . どう し て この よう な 誤 
半 が 出 て し まう の で し ょ うか . BASIC ( 他 の 言語 で も そう で す が ) の 指数 計算 
で は 展開 公式 と いう も の を 使っ て いる た め , 打ち 切り 誤差 と いう も の が どう し 
て も 出 て し まう の で す . 

そこ で , さき ほど の プロ グラ ム で (1 十 R/100) * と いう 指数 計算 を 使わ な い 
方 法 を 考 た て で て み まし ょ 3. 

ある 年 の 元利 合計 が M 円 どっ た と し て 利率 が R [%| な ら , 1 年 後 の 元利 合 
計 は , 


M ニ M 十 M※R グ 100 


と 求め られ ます . この よう に , M の 値 を 毎年 新しい 元利 合計 金額 で 置き 換え て 
いく こと で , 次 の 年 の 元利 合計 を 求め る こと が で きる の で す . 


"ーー-/* 定期 預金 の 元利 合計 (改良 版 ) */--- 





NEPHUH "7 


元 金 "》: Mi 
INPUT "預入 れ 年 数 ": Y 
INPUT "利率 %": R 
FOR K = 1 TO Y 


M# = M# + M# * R / 100 
PRINT Ki: "年 目 "。 M#i "円 " 
NEXT K 
END 










? 1000000 









瞬 陸 
べべ ざ 


男 皿 皿 田 田上 皿 田 皿 . 


1040000 円 

1081600 円 

1124864 円 
1169858.56 円 
1216652.9024 円 
1265319.018496 円 
1315931.77923584 円 
1368569.050405274 円 
1423311.812421485 円 
1480244.284918344 円 


午 抽 本 村 半 寺 博 博 革 


ーooQ の の ょ oo し 二 因 品 


因 ル ー プ の 中 に ルー プ が 見 える (多重 ルー プ ) 


| 

今 ま で は 1 重 の ルー プ に つい て だ け 説 明 し まし た が , ルー プ の 中 に また ルー 
プ が 入る 多重 ルー プ を 作る こと も で きま す . ルー プ の 中 に ルー プ が 入る こと を 
ネス ト (入れ 子 ) と 呼び ます . 
それ で は 小学 生 の と き に 覚え た 九 九 の 表 を 作っ て み ま し ょ う . 





” ーー--/* 九 九 の 表 */--- 


FOR J = 1 TO 9 
FOR K = 1 TO 9 
PRINT _ USING "####"・ J ネ 民 : 
NEXT K 
PRINT 
NEXT J 
END 


1 
2 
J 
4 
り 
6 
7 
8 
9 





ます J =1 て 内側 の ルー プ に 入り , K を 1 一 9 まで くり 返し ,。 その つど 本 * 
K の 値 を スク リー ン の 横 方 向 に 表示 し て いき ます . K の くり 返し が 終わ る と 
PRINT」 に より 改行 し , 再び 外側 の ルー プ に 戻り , 今度 は 〕 = 2 で 再び 同じ 
こと を J が 9 に な る まで くり 返し ます . 





が 回 な い い 
も | 回 まわれ 7 







外 4 旭 の 1 が か 5 
居る 


肉 恨 | の し - の は 凶 全 IL-76 を 
| くり 返 あ あい ぃ だ に の 回 くり 遂 さ れ ? 


練習 問題 1 


次 の よう な 模様 を 描く プロ グラ ム を 作り な さい . 


玉 氷 玉 未 氷 氷 来 氷 
氷 玉 玉 氷 末 氷 氷 氷 
ホホ ネネ ネネ ホホ ネネ 
ホネ ネネ ホホ ネネ 
ホネ ホホ ホネ 

そそ そそ ・ 

そそ 

率 氷 率 

玉 来 

氷 

玉 

玉 氷 

ホホ 

そそ ネネ 

玉 氷 氷 氷 

ネネ ホ 氷 ネ 

ポ 氷 氷 氷 氷 氷 玉 
ホネ ネネ ネネ 氷 氷 

氷 氷 氷 氷 氷 氷 氷 来 ポ 
氷 氷 来 来 来 ※ 来 氷 氷 玉 
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_ 内 4 介 | の !L-7 は 


「 ーー--/* 三角 模様 */--- 


CLS 
FOR K = 1 TO 10 


PRINT "*": 
NEXT 』J 
PRINT 
NEXT K 


FOR K = 1 TO 10 


PRINT "< 
NEXT J 
PRINT 
NEXT K 
END 








0. 宋 件 判断 


ある 朱 件 に し た が っ て 別々 の 処理 を し た い 場 合 が あり ます . この よう な 処理 
を 行う も の を , 条件 判断 文 と 言い ます . 


是 F 又 


変数 入 の 値 が 0 上 な ら 「plus]」」 そ う で な いな ら 「minus」 と 表示 する プロ 
グラ フラム は 次 の よう に 書き ます . 
IF A>= テ 0O THEN 
PRINT "plus" 
ELSE 
PRINT “minus" 
END 上 IF 


IF を 「 も し 」, THEN を 「 そ うな ら (条件 を 満た せ ば )」, ELSE を 「 そ う で な 
いな ら (条件 式 を 満た よさ な けれ ば )」 と 訳せ ば 意味 が わか る と 思い ます . 
っ 0 が 条件 式 で , 「 変 数 A の 内 容 が 0 以上 な ら 」 と いう 意味 で す . 
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Quick BASIC の IF 文 は ブロ ッ ク IF 文 と 呼ば れる 種類 の も の で , 次 の よう に 
THEN 節 。 ELSE 節 に 複数 の 文 (ブロ ッ ク ) を 置く こと が で きま す . 


IF 条件 式 THEN 





ー っ プ ブロック ( 複 文 ) 


ELSE 節 に 置く も の が な けれ ば ELSE 節 は 省略 で きま す が , END IF は 省略 で 
さま せん . 


IF 朱 件 式 THEN 


END IF 


- を OF 


ず , IF 文 は 1 行 に 書か な けれ ば な り ま せん で し た の で , 





IF A>=O THEN PRINT _ "plus" ELSE_ PRINT minus'" 


と いう 表現 に な り ま し た . THEN 節 .ELSE 節 に 置く 文 が それ ぞ れ 1 つの 場合 は 
よい の で す が , 複数 に な っ て くる と GOTO 文 を 使っ て 他 の 場所 に 飛ば さき ざる を 


侍 な く な り ま し た だ . 


これ が BASIC の 最大 の 欠点 で し た が , Quick BASIC で は ブロ ッ ク IEF と いう 人 


考え 方 を 取り 入れ 。 この 欠点 を 改 療 し まし た 」 


も ちろ ん QAuick BASIC で は 従来 型 の IF 文 も 使え ます . 従来 型 の IF 文 は . すべ 


て を 1 行 に 書き , 最後 に END IF を 置き ませ ん . 


従来 の IF 文 は 。 THEN 節 , ELSE 節 に ブロ ッ ク ( 複 文 ) を 置く こと が で き 





則 森 件 判断 を 行 つ 演 算 
条件 判断 の 際 に 大 きい , 小さ い , 等 し いな どの 大 小関 係 を 判定 する 演算 子 を 
関係 演算 子 と 呼び 次 の 6 つが あり ます - 


表 6-1 関係 演算 子 





等 し い 
ベベ み また は ラマ 等 し く な い 
ぐ 小さ い 


ぐー また は = ッ > | 小さ いか 等 し い 
FR - 大きい 
> また は => 大 きい か 等 し い 


さて , 変数 A が 0 一 100 の 間 に 入 る か を 調べ る 条件 式 と し て , 
0 く =A< く =100 

と 書け れ ば よい の で す が , 残念 な が らち この よう に は で きず , 
0 く =A AND A< ニ =100 


と 書か な けれ ば な り ま せん . この AND は 「 か つ 」 と いう 意味 で 。 2 つの 条件 式 
を 組み 合わ せ て いま す . この よう に , いく つか の 条件 式 を 組み 合わ せる も の を 
論理 演算 子 と 呼び ます . 論理 演算 子 に は 次 の も の が あり ます . 


表 6-2 論理 演算 子 
演算 子 | 意 








注 ) この 他 に XOR, IMP, EOV が ある が 説明 は 省略 . 





虹 で て こい 最大 
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10 個 の デー タ を 入力 し , その 中 か ら 最 大 の も の を 探し 出す プロ グラ ム を 作っ 
まし みょう 。 





リーー-/* 出 て こい 最大 */--- 





MAX = -9999 = 一 一 初期 値 と し て で きる だ け 小 さ な 値 を 入れ て お く 
FOR K = 1 TO 10 
INPUT "data "5 A ペ ーー デー タ を A に 入力 
IF A > MAX THEN ュ ーーA が いま まで の 最大 より 大 きけ れ ば 以下 の 処理 を する 





MAX = A ペ ーーーーーー 最大 値 の 更新 
NUM = 人 KK 最大 値 の デー タ の 番号 
END IF 


NEX] KK 


PRINT NUM: "番目 が 最大 で その 他 は ": MAX 


END 





data ? 10 

data ? 25 

data ? 56 

data ? 88 

data ? 95 

data ? 45 

data ? 66 

data ? 32 

data ? 5 

data ? 67 | 

5 番目 が 最大 で その 値 は 95 








練習 問題 2 


元 の 最大 値 を 求め る プロ グラ ム は , 入力 デー タ の 範囲 が も し 一 9999 よ り 小 さ 
か っ だ ら , 止 し い 結 来 が 得 ら ちら れ ま せん . 
そこ で 1 番 最 初 に 入力 し た デー タ が 最大 で ある と し て , その 値 を MAX の 初 





期 人 守 と すれ ば , 一 9999 と いう よう な あま り 根 拠 の な い 値 を 使わ な く て 済み ます . 
この よう な 考え 方 で ブロ グラ ム を 修正 し な さい 、. 


ーー-/* 出 て こい 最大 (改良 版 ) */--- 
INPUT "data " ぉ | | 


FOR K=| | 
INPUT "data ": A 
IF A > MAX THEN 
MAX = A 
NUM = K 
END IF 
NEXT K 
PRINT NUM: "番目 が 最大 で その 他 は ": MAX 
END 
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4 回 数 が 決ま よう つて いな いく り 返 し 


・ 移 に 説 明 し た FOR 文 は くり 返す 回 数 が あら か じ め 何 回 と 決ま っ て 
bs だれ ね 。 





ここ で は , くり 返し 回 数 が 決ま っ て いな いく り 返 し を 行う WHILE 
文 に つい て 説明 し よう . 

EIUzZa : その 場合 , くり 返し の 終わ り は どう 判定 する の で すか . 

先生 ・ WHILE 文 に 条件 式 と いう の を 書き , それ で 終了 を 判定 する の だ . 





軍 WHILE 文 


だ と そく そば, デー タ を 入力 し て いき その デー タ の 合計 を 求め る プロ グラ ム を 考 


えて み ま し ょ う . 仮に デー タ の 個数 が 10 個 と 決ま っ て いる 場合 は , FOR 文 を 用 
いて 次 の よう に 書き ます . 


FOR | ニ 1 TO IO 


INPUT A 
SUM=SUM 十 A 
NEXT | 


し か し , 一 般 に 入力 デー タ の 個数 が 決ま っ て いな い 場 合 が 多い よう で す . こ 
うし だ とき は WHILE 文 を 用 いて 次 の よう に 書き ます 。 





INPUT _A 
WHILE A く >ー9999 
SUM= テ SUM 十 A 


INPUT A ュ ーーーーー この 2 箇所 に INPUT 文 を 置か な けれ ば な ら な い 
WEND 


くり 返し 回 数 が 決ま っ て いな い 場 合 は ,。 くり 返し の 終わ り を 何ら か の 方 法 で 
指示 し な けれ ば な り ま せん . この 例 で は デー タ と し て 9999 が 与え られ たら ル 
ー プ を 終わ る こと に し て いま す . 








終末 の どちら で も くり 返し の 条件 を 判定 する こと が で きま す . 


さて , WHILE 型 の ルー プ で デー タ 入 力 を する と き は , ルー プ に 入る 前 と ルー 
プ の 中 で 2 度 INPUT 文 を 置か な けれ ば な り ま せん . これ を 2 度 読み と いい ま 
す . 


WHILE 文 の 一 般 形 は 次 の よう に 書き ます . 


WHILE 条件 式 


くり 返さ れる 文 


WEND 





| くり 返さ れる 文 





< 条件 式 > で 示さ れる 条件 を 満た す ( 真 の ) 間 , WHILE と WEND で 囲ま れ た 
文 を くり 返し ます . 


ーー 一 一 


~ Quick BASIC の くり 返し 制御 文 





Quick BASIC で は 、 WHILE 一 WEND の 他 に DO 一 LOOP と いう 汎用 的 な く | 
り 返し 制御 文 が サポー ト さ れ て いま す . これ を 用 いる と , ルー プ の 先頭 お よび 





DO-LOOP に つい て は 第 7 章 で 詳し く 説 明 し ます . 
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時 倍々 預 釜 






今日 は 1 円 預金 し , 明日 は 倍 の 2 円 , その 翌日 は さら に 倍 の 4 円 と 
いう ふう に , 前 日 の 倍 の 金額 を 預金 し て いっ た ら 何 日 で 100 万 円 を 越 
える と 思う ? 

・ 1 円 十 2 円 十 4 円 十 8 円 十 16 円 … 

だ か ら , か な りか か る の で は な い の で すか . 

ク し 士 ・ こ うい う の こ そ コ ンピュータ で や ら せ る と お も し ろ い ん だ よ . さっ 
と く グ 中 グ ラム し 宛 あ よう , 








「 ーー-/* 倍 倍 預金 */--- 
SUM# = 0: D# = 1: DAY = 1 


WHILE SUM# < 1000000# ュ ーーーーー 合計 が 1000000 を 越え る まで くり 返す 
SUM# = SUM# + D# 
PRINT USING "##### & 8": DAY:i "日 目 ": 
PRINT USING "########### る SS": SUM#: "円 " 
D# = D# ま 2 ペーーーーーー 翌日 に 積む 金額 を 今日 の 倍 の 金額 に する 
DAY = DAY + 1 

wEND 

END 


1023 
2047 
4095 
8191 
16383 
J2767 
65535 
131071 
262143 
524287 
1048575 


wih:h:P:h:P: ト iP:h:P:h:P:h:P:F: ド ドド:F: ド : 


日 
日 
日 
日 
日 
日 
日 
= 
日 
日 
日 
日 
日 
日 
日 
日 
日 
日 
日 
日 








証 
l 


マル チ ・ ス テー トメ ント 


普通 1 行 に は 1 つの 文 し か 書く こと が で きま せん が , コロ ン (: ) で 区 切っ 


て 複数 の 文 を 書く こと が で きま す . これ を マル チ ・ ス テー トメ ント と いい ます . 


マル チ ・ ス テー トメ ント が 最も 効果 的 な の は , 従来 型 IF 文 の THEN 節 , ELSE 


節 に 複数 の 文 を 書き た い 場 合 で す . 


IF A>0 THEN PSUM= テ PSUM 十 A : PNUM = PNUM 十 1 


マル テ チ テス テー トメ ント の ド ば 切り 
マル チ ・ ス テー トメ ント を 使え ば . 


FOR K=1 TO 5 :PRINT "BASIC" : NEXT _K 


と いう 表現 も 可能 で す が , これ は プロ グラ ム を 読み に くく する の で お すす めで 
| きま せん . 





mSUM# 三 SUM#『 士 D# の 意味 を 考え る 

SUM# は 預金 額 を 入れ る 変数 で , 最初 は 0 円 で す . D# は その 日 に 預け る 金額 
で , 最初 は 1 円 で す . 

SUM#ー ニ SUM# 十 D# は 現在 の SUM# の 内 容 に D# の 内 容 を 加え , その 値 を 
SUM# の 新しい 値 と し て 代入 し な さい と いう 意味 で すか ら , SUM# に 預金 額 の 
合計 が 求め られ て いき ます . 

D#ーD#※ 2 は , 翌日 に 積む 金額 を 今日 の 倍 に し ます . 






1 日 ぬ は | 円 
_( 4BA た が 3? 円 て 








第 5 草 





あな た が 創る Quick BASIC の 世界 
練習 問題 3 


デー タ を 入力 し て いき , 合計 と 平均 を 求め る ブロ グラ ム を 作り な さい 。 だ だ 
し , デー タ の 終わ り は 9999 の 入力 に より 判定 する も の と する . 





「 ーー-/* 合計 と 平均 */--- 


SUM = 0 
N = 0 
INPUT "data ": D 
WHILE 0 

SUM =| |] 

N =[ | 

INPUT "data ": D 
wEND 


PRINT "合計 =“: SUM 
PRINT "平均 =": SUM / N 
END 





9. 使 つて 便利 な 関数 の いろ いろ 





EIUZG : 数 学 の sin, cos な どの 計算 も で きる の で すか . 

2 て 二 ・ も ちろ ん . 数 学 の 計算 を 行う た め の 関 数 が いく つか 用 意 さ れ て いて , 
これ を 算術 関数 と いう . 

EIUZa : 関 数 は どの よう に プロ グラ ム 中 で 使う ん で すか . 

先生 ・ た と えば , ソ 10 の 結果 を 変数 A に 求め る に は , 





A =SOR(10) 





と すれ ば いい . 








昌 BASIC の 算術 関数 

算術 関数 の 中 で 代表 的 な も の を 次 ペー ジ に 示し ます . 

表 中 に も 示し まし た が , 三角 関数 の SIN。 COS, TAN で 与え る デー タ は 度 で 
は な く ラ ジア ン で す . 180" が ヶ (3.14159) ラ ジア ン に 相当 し て いま すか ら , 度 と 
フジ アン の 変換 値 を 次 の よう に 求め て 変数 に 入れ て お く と 便利 で す . 





RD=3.14159 180 


も し , A=90["] で SIN の 値 を 求め た いと き は SIN(RD* A) と すれ ば よい 


わけ で す . 

sm の 値 と は 次 の よう な 長 さ 1 の 棒 が , 原点 を 中 心 に 1 回 転 す る 間 の 棒 の 先端 
か ら X 軸 へ の 垂 線 の 長 さ を 指し ます . 

今 , 棒 の x 軸 に 対す る 角度 が A'* と 


する と , この と き の 垂 線 の 長 さ は 
SIN(A) と 書き ます . た だ し BASIC 
で は , SIN( ) の 中 の ( ) の 中 に は 
度 で は な く ラ ジア ン と いう 単位 を 指 
定 し な けれ ば な ら な いた め , SIN(A 
*3.1459 プ 180) と し て いる の で す . 

ラジ アン と いう の は , 半径 1 の 円 に お いて 角度 A" の 円 弧 の 長き を いい ます . 
だ た と え そば 180'" の と き の 円 弧 の 長き は zr で 求め られ る の で , r エ = 1 だ か ら ヶ と な り 





- ラ ジア ン ( 円 弧 の 長 さ ) 
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ます . つま り 180" が ヶ ラ ジア ン に 相当 する の で す . 











| ABS(--3.0) つ 3.0 


| tan-!X の 値 . 結果 は ー ァ /2 一 x/2 の 


本 昌明 思 較 で テ え り 9 し - | 
余 弦 COS(X) cosX の 値 . X は ラジ アン て 与え る . | COS(x/4) プ テ 
5 


5 本 | NT(-2.) っ ーー3 
整数 化 X を 超え な い 最 大 の 整数 . | NT(2.5) つ 2 


- 対 数 自然 対数 logeX の 値 。 。 LOG(10) 一 log。10=2.3026 


0 以上 1 未満 の 乱数 を 発生 する . X 
の 値 に より 乱数 の 発生 の 仕方 が 異 
| な る . 


| ATN(1)ー ァ /4 























| FIX( 一 2.3) つ ーー2 


X の 値 の 小数 点 以下 を 取り 去る 。 | Fx(。 ーッ 











X<0… あ た らし い 乱 数 列 を 設定 . | PDV/ プ 乱数 発生 
X= テ 0…1 つ 前 の 乱数 の 値 を と る . 
X>0・ 欠 の 就 数 を 発生 
X<0 の と き 一 1 | SNG(-5)ーー1 
符 | X=0 の と き 0 SNG(0)ー0 






X>0 の と き 1 SNG( 10) 一 1 


方 根 | | ソ ズ の 値 . >0 で ある こと . | SQR1OO…10 


正 接 | TAN(X) tanX の 値 X は ラジ アン て 与え る . | TAN(z/4) つ 1 





時 サイ ン ・ カ ー プ を 措 く 

SIN の 値 は ー1.0 一 1.0 の 範囲 な の で ,。 これ を グラ フ に する に は 適当 な 倍率 を 
か け な け れ ば な り ま せん . ここ で は 10 倍 に し ます . また だ た, CRT の 画面 は 横 80 文 
字 な の で ,。 グラ フ 表 示 の 中 心 位置 を 左 か ら 30 文 字 目 の 位置 と する こと に し ます . 
し た が っ て N" の と き の SIN グ ラフ の 表示 位置 は 変数 TS% に , 


TS%=30 十 10*SIN(N *RD) 


で 求め る こと が で きま す . そし て この 位置 に * を 打つ に は , TAB 関 数 を 用 いて , 





PRINT TAB(TS%) : “* 


と を しま すず, 


TAB 関 数 は , ( ) 内 で 号 え られ た 文字 数 分 だ け 画 面 の 左 か ら 移 動 し た 位置 


を , デー タ の 表示 位置 に し ます . 





ーー TS%=30 二 10*SIN(N*RD) 。 


TAB(TS%) | に 





。 守 
ee 


| 
| 
| 
| 
| 
ES 


| 

| 

| 

000y す ゃ 。 
| 
| 

| 

| 

し 

| 





| 


an 
つ 


[ 
| 
2 
| 
| 





30 文 字 


PRINT TAB(6) :"* ー 
PRINT TAB(6) :"A": TAB(11) : "B" 





「---/* サイ ン ・ カ ー プ */---- 


RD = 3。14159 / 180<- 度 を ラジ アン に 変換 する た め の 定 数 
PRINT "angle 8 in こ 1 0 
PRINT " 人 
FOR N = 0 TO 360 STEP 20 
TS% = INT(30 + 10 * SIN(N * RD) ) ュ ーー 表示 位置 
PRINT USING 「!#### ### せ 。####"・ N: SIN(N * RD)・ 
PRINT TAB(TS) ) "まり 
NEXT N 
END 








どど どど どど どら ど 〇 〇 の 〇 


5 0 0 0. 8 89.8 8 
の どど の どど どど どの 





8 in 


・0000 
・J420 
・6428 
・S660 
・9848 
・9848 
・8S660 
・6428 
・ さ 420 
・0000 
・J420 
・6428 
・S660 
・9848 
・9848 
・S660 
・6428 
・J420 
・0000 
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・1S26 と , わざ わざ 整数 型 変 数 に し て いる の は な ぜ で すか . 


・ 画 面 上 で 何 文字 と いう の は 整数 値 だ ね . 実数 値 を TAB の 引数 に する 
と 小数点 以下 は 四 捨 芋 入 さ れる か ら , TS% に 実数 値 を 代入 し て 整数 
化す る 必要 は な い の だ が , これ は この 後 の 練習 問題 4 を 作る と き に ., 
関係 し て くる こと な の だ . 








練習 問題 4 








十 ・ 刀 の よう な サイ ン ・ コ サイ ンカ ー プ ブ を 描く プロ グラ ム を 作り な さい 」 
an〆le 8in COS8 こ 1 0 
I . 
0 0.0000 1.0000 
15 0.2588 0.9659 玉 
30 0.5000 0.8660 来 
45 0.7071 0.7071 
60 0.8660 0.5000 O 
75 0.9659 0.2588 O 
90 1.0000 0.0000 O 
105 0.9659 -0.2588 O 
120 0.8660 -0.5000 
135 0.7071 -0.7071 
150 0.5000  -0.8660 
165 0.2588 -0.9659 O キ 
180 0.0000  -1.0000 O キ 
195 -0.2588 -0.9659 O キ 
210 -0.5000  -0.8660 
225 -0.7071 -0.7071 
240 -0.8660  -0.5000 
255 -0.9659 -0.2588 O 
270 -1.0000  -0.0000 * O 
285 -0.9659 0.2588 * 0 
300 -0.8660 0.5000 い O 
315 -0.7071 0.7071 
330 -0.5000 0.8660 
345 -0.2588 0.9659 キ 
360 -0.0000 1.0000 * 
EIUZa : 変 数 TS2%% に サイ ン の 位置 , 変数 TC9%% に コサイン の 位置 を 求め , 次 の 
よう に すれ ば いい で し ょ うか . 
PRINT TAB(TS%) | * ネ "2 TAB(TC%) jo" 
年 ・ TAPB 関 数 で は , ( ) 内 の 値 が 現在 の CRT 上 の 表示 位置 より 左 に 入 
り 込 む よ う な 場合 は 改行 され て し まう . つま り 上 の 文 で TS%<TTC 
2% の と き は いい の だ が , TS%> TC% の と き は , “oo” 印 を 打つ と き 
SE 人 TL て し まう 。 
EIUZa : それ で は TS% め と TC% の 大 小 を 比較 し , 小さ い 方 の グラ フ か ら 打 つ 


ょ うに し な けれ ば な ら な い の で すね . 
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「 ---/* サイ ン ・ コ サイ ン ・ カ ー ブ */---- 
RD = 3.14159 / 180 


PRINT "angle Sin cOS こ 1 0 1 " 
PRINT 「 を の で か で プス トム さき の 


FOR N = 0 TO 360 STEP 15 
TS% = よこ 
TCz =[ = 、 06 や 0VW パ WVWQW《K. く <】1 
PRINT USING "人 ####  ##。 林 共 井 音 共 。####": Ni SINCN * RD): COS(N * RD): 
IF TS を = TC% THEN PRINT TAB(TS%): "+" 
IF TSz < TC% 








NEXT N 
END 


m 


実数 デー タ の イコ ー ル 比較 は 危険 





TS%=TC% と 整数 型 デ ー タ で は 正しい 比較 が 行 を ます が , も し これ を TS=I 
TC と 実数 型 の デー タ で の 比較 に し た ら ど うな る で し ょ う . 実 数 値 と いう の は 小 
数 点 以 下 に 数 値 が ある も の な の で , 四捨五入 な ど を し て みか け 上 は 同じ 値 に 見 
えて も , コン ピュ ー タ の 内 部 表現 で は 異な っ て いる こと が 多い の で す . で すか 
ら こ の よう な デー タ を = で 比較 し て も , 一 致す る こと は まず あり ませ ん . 








6. アー ツ を リー ド す る 





先生 INPUT 文 と いう の は キー ボー ド か ら デ ー タ を 入力 し た ね . ここ で 
は プログ ラム 中 の デー タ を リー ド す る READ 文 を 説明 し よう . 

・ ブ ログ ラム 中 の デー タ と は どう いう も の で すか . 

・DATA 文 と いう の を 使っ て デー タ を 書き 並べ た も の だ よ . 








員 READ て DATA 文 


INPUT 文 は キー ボー ド よ り デ ー タ を 受け 付け ます が , READ 文 は プロ グラ 
| ム 中 に DATA 文 で 書か れ た デー タ を 読み 取り ます . READ 文 が 実行 され る と. 
DATA 文 の 先頭 の アー タ か ら 読 み 取 られ て いき ます . DATA 文 は プログ ラム 中 
の と どこに 書い て も か まい ませ ん . つま り , READ 文 より 前 で も 後 で も , 何 行 に 
分 け て 書い て も か まい ませ ん . READ 文 の 後に は 複数 の 変数 を 区 切っ て 書く こ 
と が で きま す . 文字 型 変数 と の 混合 も 認め られ ます . 

| 








READ A. B$. C. | 


し ー 


DATA 1, ABC 
DATA _ 5, 6, BASIC" 


員 RESTORE 又 


| 
KESTORE 文 は , READ 文 で 読む デー タ を プロ グラ ム の 最初 の DATA 文 の 位 


直 に 設定 し ます . 
READ A, B$. C 
RESTORE 


READ D,。 E$ ュ ーー D に 1, E$ に "ABC" が リー ド さ れる 


DATA 1. “ABC" 
DATA 5. 6. “BASIC" 








還 カ ー・ レ ー ス 


B 草 
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自動 車 を 型 ど っ た パタ ー ン ・ デ ー タ を リー ド し , CRTZ の 左端 か ら TB だ け 離 れ 
た 位置 に 表示 し ます . TB に は 乱数 に より 2 ー31 の 値 を 発生 きせ ます . 






ヒ IUZg 
ク し 士 


ヒ 上 IUZg 
て 二 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


wHILE 1 
RESTORE 


WEND 
END 






1 
| 


し ---/* カー レー ス 
DATA " 


『 ( ) Lu 
* OUU-=O" 
すす UU す 
"0-VV-O" 


の 二 の 
READ A$ 


ネ / ニ ーー 


READ 文 で 読む デー タ を プロ グラ ム の 


。 |  。 最初 の DATA 文 の デー タ に 設定 する 


TB = INT(30 * RND + 2) < 自動 車 の 表示 位置 を 乱数 で 求め る 
FOR 民 = 


PRINT "1": TAB(TB)j) A$: TAB(38) 1 1" 


NEX1 KK 


・WHILE 1 と いう の は 何で すか . 

・ WHILE の 条件 式 の 中 に 0 以外 の 整数 値 を 書く と , 条件 式 が いつ も 
具 と 判定 され 和 無限 ルー プ に な る ん だ . 

・ 無 限 ル ー プ っ て 何で すか . 





! 
I 
! 
! 
I 
! 
I 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
! 
| 
! 
! 
I 
1 
| 


・ い つま で だ た っ て も その くり 返し (WHILE と WEND の 間 ) が 終わ ら 


な いよ うな ルー ププ の こと だ . 
この よう な ゲロ グ ラム を 中 止 し た いと き は , 
5 串 市 に 止め な けれ ば な ら な い . 






STOP 














/. BASIC の 貞 工 文字 





て 二 ・ BASIC の 最も 優れ た 機能 は 文字 列 処理 が 簡単 に で きる こと だ . 
FIUZG : 文字 列 処理 と は どん な こと で すか . 

先生 ・ 文 字 列 を くっ つけ た り , 文字 列 中 か ら 指 定 し た 文字 列 を 取り 出し た 
り , 文字 列 の 比較 を 行う と いっ た 処理 だ . 








昌 文字 型 変数 と 文字 型 デ ー タ の 演 人 算 


変数 名 の 後に ぉ マー ク を 付け た も の が 文字 型 変数 で す . 文字 型 デ ー タ は 文字 
列 を "(2 重 引用 符 ) で 囲ん ども の で す . 

文字 型 デ ー タ は , 代入 , 連結 , 比較 と いう 3 つの 処理 が 行え を ます . まず 代入 
は ニテ を 用 いて , 


A$= “Hello" 
と し ます . 文字 デー タ の 連結 は 十 演算 子 に より 次 の よう に 行え ます . 
A$=A$ 十 “ BASIC" 


これ で 今 。A$ は “Hello BASIC" と な っ て いま す . な お , 扱え る 1 つの 文 
子 列 の 長 さ は 最大 32767 文 字 ま で で す . 
また , 文字 型 デ ー タ の 比較 は 辞書 順 (アル ファ ベッ ト 順 ) に 行わ れん ます か ら . 


A くく AB < く “B < く “BBB" 


の よう な 大 小関 係 に な り ま す . 文字 型 変数 A$ の 内 容 が “BASIC" に 等 し いか 
判定 する に は , 


IF A$ ふ = “BASIC" THEN- ン 


と し ます . = 以外 に も >, > テ , < く , こく =, こく > な どの 関係 演算 子 を 使っ て 文字 列 
の 大 小 比 較 が 行え ます . 
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玉 又 字 列 処理 関数 
文字 列 処理 を 行う 代表 的 な 関数 で ある RIGHT $ (右側 か ら 文 字 列 を 取り 出 
す ), LEFT $ ( 諾 側 か ら 文字 列 を 取り 出す ), MID $ (中 間 か ら 文 字 列 を 取り 出 
す ), LEN (文字 列 の 長 さ を 調べ る ) を 紹介 し ます . 
いま P$ ニ “BASICPROGRAM" と な っ て いた と し ます . 


@ RIGHT$(P$, 2 )……P$ の 右 か ら 数 えて 2 文字 まで を 取り 出し ます . 
し た が っ て AM が 取り 出さ れ ま す . 

@LEFT$(P$, 7) …… P$ の 左 か ら 数 えて 7 文字 まで を 取り 出し ます . 
し た が っ て BASICPR が 取り 出さ れ ま す . 

@ MID$(P$ 6,3) ……P$ の 左 か ら 数 えて 6 文字 目 か ら 3 文字 取り 出し 
ます . し た が っ て PRO が 取り 出さ れ ま す . 

@LEN(P$) …ーP$ の 文字 数 12 が 返さ れ ま す . 


P$ = “BASICPROGRAM" 
| 1 を 
LEFTS(P$.。 7) へ N__MD$(P$。 6. 3) 


それ で は , MID$ と LEN を 使っ た 例題 を 1 つ 紹 介し て お きま す . 





ーー-/* 文字 列 処 理 */--- 


P$ = “Basic world !" 
FOR KK = 1 TOILEN(P$)= 一 P$ に 入っ て いる 文字 列 の 長 さ 
PRINT Ss K ) 


NEX] KK 
END P$ の 右 か ら K 文 字 を 取り 出す 





1 

1 
d ) 
1d 
rld 
Orld 


World ! 

World ! 

C World ! 

iC world ! 
8S8iC WoOrld ! 
a8iC world 
BaSiC world 





還 ア スキ ー・ コ ー ド と キャ ヤラ クタ 


コン ピュ ー タ で 扱う 文字 は , アス キー・ コ ー ド と いう 整数 値 (0 一 127) に 対 
応 付け られ て いま す . た だ し , 31 以 下 の ア スキ ー・ コ ー ド は 特殊 機能 を 行う も 
の で 「 文 字 ] と し て は 見 えま せん . 

な お , 日 本 の コン ピュ ー タ は アス キー・ コ ー ド を 拡張 し た JIS コ ー ド を 用 いて 
いま す . JIS コ ー ド で は 128 以 上 の コー ド が カナ や グラ ブフ ブ 文 字 (パソ コン に より 
凌 な る ) に 割り 当て られ て いま す . 

以下 に アデ スキ ー・ コ ー ド (JIS コ ー ド ) の 32-255 の 各 文 字 の 対応 関係 を 示し 
ます . 


3 2 33 ! 34 『"' 35 # 36 $ 37 先 38 39 " 
40 ( 41 ) 42 43 + 44 。 45 - 46 . 47 / 
48 0 49 1 50 2 bl 3 52 4 53 5 54 6 55 7 
56 8 57 9 58 : 59 560 < 61 = 52 > 563 ? 
64 @ 65 A 66 B 67 C 68 D 69 E 70F 71 G 
72 H 73 1 74 J 75 KK 76 し 77 M 78 N 79 0O 
80 P 81 @ 82 R 83 S 84 T 85 U 86 V 87 W 
88 区 89 Y 90 Z 91 [ 92 ユ 93 ] 94 “ 95 
96 97 a 98 b 99 Cc 100 d 101 e 102 fj 103 
104 h 105 106 j 107 K 108 1 109 四 110 n 111 o 
112 p 113 q 114 r 115 gs 116 t 117 u 118 V 119 w 
120 * 121 y 122 z 123 { 124 | 125 )}) 126 “ 店 導 」 
128 _ 129 130 = 131] 132 画 133 画 134 遼 135 圏 
136 | 137 | 138W 139 邊 140 自 141 自 142 較 143 寺 
144 二 145 〒 146 + 147 ト 148 149 一 150 | 151 | 
152 r 153 ュ 154 155 ~ 156 157 ヽ ゝ 158 + 159 
160 161 。 162 『" 163 。 164 165 ・ 166 ヨ 167 アァ 
168 イィ 169 ゥ 170 ェ エ 171 ォ 172 ャ 173 ュ 174 ヨ 175 ッ 
176 - 人 な 。 178 イ 179 ウ 180 エ 181 オ 182 カ 183 キ 
184 ク 185 ケ 186 コ 187 サ 188 シ 189 ス 190 セ 191 ソ 
192 タ 193 チ 194 ツ 195 テ 196 ト 197 ナ 198 こ ニ 199 ヌ 
200 ネ 201 ノ 202 203 ヒ 204 フ 7 205 へ 206 207 マ 
208 ミ 209 ム 210 メ 〆11 も 212 ヤ 213 ュ 2Z14 ヨ 必 よ ね ラプ 
216 リ 217 見 218 レ 219 H 220 ワリ レネ タン ー ャ サ 介 223 * 
224 三 225 上 226 キ 227 ヨ 228 』 229 230 231 
232 欠 233 靖 234 を 235 を 236 参 237 O 238 239 ヽ 
240 XX 24】1 円 242 年 243 月 244 日 245 時 246 分 247 和 
248 249 250 251 252 253 254 255 


この 表 は 次 の プロ グラ ム で 打ち 出し た も の で す . 





「---/* ASC 1 1 コー ド 表 */--- 


FOR 1! = 32 TO 255 
IF (I MOD 8) = O THEN PRINT 


PRINT USING "### る 8 "< TI: CHRS(I)・ 
NEX] 1 1 吾 アス キー・ コ ー ド 1 を 
END 1 文 字 出 力 の の 
書式 制御 文字 に 用 換 
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アス キー・ コ ー ド と キャ ラク タ の 間 の 変換 を 行う 関数 と し て , ASC と CHR $ 
が あり ます . 


ASC は 与え られ た 文字 に 対応 する アス キー・ コ ー ド を 返し ます . 
ASC(“A")……A の アス キー・ コ ー ド 65 が 返さ れ ま す . 





CHR$ は 与え られ た アス キー・ コ ー ド に 対応 する 文字 を 返し ます . 
CHR$(65)…… ア スキ ー・ コ ー ド 65 に 対応 する 文字 "A" が 返さ れ ま す . 





秘 密 の 会 話 





2 し 士 ・ "JImpwflzpV と いう 暗号 を 解読 する プロ グラ ム を 作っ て みよ う . 
EIUZa : これ は 何 か 意 味 の あ る 文字 な の で すか . 
2 士 ・ 種 を あか せ ば 簡単 な こと だ . 本 当 の 文字 の アス キー・ コ ー ド に 1 
し た 文字 、 つま り ア スキ ー・ コ ー ド 表 の 次 の 文字 を 並べ て いる の だ 
天 
EIUZa : な あん が だ , 
B ぶし 
A っ B 
こも 
すっ を 
し レート 1) 
と 変換 し て いた の で すね . 
て 二 ・ 原理 は わか っ た が , プロ グラ ム は どう する の か な 、. 
EIUZ : 暗 号 の 文字 列 か ら 1 文字 ず つ 取 り 出 し , その 文字 を ASC で アス キ 
ー・ コ ー ド に 直し , それ を 1 し , 再び CHR $ で 文字 に 直せ ば いい 
の で しょ 。 











"ーー--/* 暗号 の 解読 */--- 


CLS 

A$ = "JJ!mpwf! ZDpDV" 

FOR 1 = 1 TO LEN(A$) 
PRINT CHR$S(ASC(MID$S(A$ も 。 !。 1)) - 1): 

NEXT 』 


END アス キー・ コ ー ド に 直す 


1} lOVe YOU 
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1_love_you] と いう デー タ を 暗号 化す る プロ グラ ム を 作り な さい . 





「---/* 暗号 を 作る */--- 


CLS 
A$ = "[ 1OVe YOU" 


EIUZG 暗号 化 の ルー ル を いろ いろ 作っ て お け ば , 2 人 だ け の 秘密 の 会 話 を 
する こと が で きま すね . 
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0, プー ツ を よこ め の て 官 埋 す る 配 多 





・ 私 達 の クラ ス の 女子 20 人 の 英語 の 点数 を , 何 か 変 数 に 入れ た いん で 
す が ど うし た ら よ いで すか 。 





・ こ の よう な 同じ 種類 の デー タ は , 配列 と いう も の に 入れ る と 便利 な 」 
の 7 ば 上 。 





唱 1 次 元 配列 は 100 人 力 

た と える くば 20 件 の デー タ が あっ た だ た とき, これ を 入れ る た め の 変 数 と し て , A0, 
A1, A2…… と いっ た 単純 変数 を 用 いて , 

AO0= ニ DU 


な ど と し て いた の で は 大 変 な こと は 明らか で す . 
配列 は, 


DIM A(19) 
の よう に 宣言 し ます . これ に より A(0 )。A(1) 
れ を 特に 配列 要素 と 呼ぶ ) が 用 意 さ れ ま す . 


重 硬 耐 世 


20 個 用 意 さ れる 








この 箱 は A と いう 総称 名 と ( ) で 囲ま れ た 配列 番号 で 管理 され て いま す . 


[[ 配列 番号 (添字 ) 
ー- 総称 名 (配列 名 ) 





つま り , A(0 ) は 0 番目 の 箱 。 A(19) は 19 番 目 の 箱 と いう 意味 で す . { 番目 の 
箱 は A(I) と 書け ます . この よう に ( ) 内 に I な どの 変数 を 書け る こと が 配列 
の 最大 の 特徴 で す . 一 般 変 数 A1. A2, …… に 対し , AI な ど と し て も .。 これ 
は AT と いう 別 の 変数 を 意味 し て いる に すぎ ませ ん . 

て それでは, A(0) 一 A19) の すべ て の 内 容 を 0 に する プロ グラ ム を 書い て み 
まし よう 。 


FOR | =0 TO 19 


AI) = 0 
NEXT | 
! の 値 が 0 一 19 ま で 変化 する 間 に A(0)=0, A⑪)=0, …… が 順次 行わ れ ま 


す . 





2L 士 ・ FOR |=0 TO 19 
A()= | 
NEXT Il 





な ら , 配列 4 人 に は どん な 値 が 入る か な . 


FEIUZ コ : た と えば, I が 0 の と き は A(0)=0 が 行わ れ , I が 1 の と き は A 


(1) ニ 1 が 行わ れる ん だ か ら ……, 結局 , 
グ | 2 / 
(2) 


ノ | 0 ノル ュ イ ズ 
COUCIEG 
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_ Quick BASIC の 配列 


・ と ころ で 配列 番号 は 必ず 0 か ら 始ま る の で すか ? 
・ 一般に そう だ ね . た だ OPTION BASE 文 と いう の を 使っ て プロ グラ 
ム の 先頭 で OPTION BASE 1 と し て お け ば , 配列 は 1 番 の 要素 
か ら 始 まる . 8 
さら に , Quick BASIC で は DIM 文 で 配列 の 宣言 を する と き に , 添字 | 
の 範囲 を 指定 で きる こと に な っ た . これ に より 負 の 値 も 添字 に する 

こと が で きる . これ に つい て は 第 7 章 で 詳し く 説 明 し よう . 





員 本 別に デー ツ を 入れ る 





・ と ころ で 配列 A(0), A(1), …… に 英語 の 点数 を 入れ る に は , A 
(0 )=56 : A(1)=67 : …… な ど と し て いく ん で すか 。 

先生 。 : それ で も いい が , 代入 文 を 20 個 も 書か な けれ ば な ら な いか ら 大 変 だ 
ね . FOR ルー プ と INPUT 文 を 使っ て 書い て ご らん . 





上 IUZ 





FIUZ :FOR |=0O TO 19 
INPUT A (|) 
NEXT | 





で す . 

EIUZ : 先ほど か ら 気 に な っ て いる の で す が 。 0 番 の 生徒 と いう の は 何 か 変 
な 感じ し な の で す が . 

2 し 二 ・ そ うだ ね , 日 常 生 活 で は 1 番 か ら 始 まる か ら 0 番 と いう の は 違和感 
が ある か も し れ な い . 

EIUZa : 先ほど か ら の プロ グラ ム は 0 番 を 使わ ず 


DIM A (20) 

FOR |=1 TO 20 
INPUT _ A (|) 

NEXT | 









と 書い て も いい の で すか . 
宙 二 ・ も ちろ ん だ よ . この 場合 A(0 ) と いう 要素 は 宣言 され て いる の に 使 
わな いこ と に な る が , それ は 旧 細 な こと だ . 





時 央 単語 ドリ ル 


表示 され た だ 5 問 の 日 本 語 に 対す る 英語 を 答 を る と いう , 英 単 語 ド リル の プロ 
グラ フラ ム を 作っ て み ま し ょ う . 

ENGLISH$( ) に 英 単 語 . JAPANESE $ ( ) に 日 本 語 を ペア で 格納 し て お 
きま す . 解答 を 誤っ た 場合 は CF( ) の 値 を 一 1 に 設定 し , 5 問 終 了 し た と き に 
CEF( ) の 値 を 調べ 誤 答 し た 単語 の 正解 を 表示 し ます . 


| ーー-/* 英 単語 ドリ ル */--- 

CLS 

N = 5 

DIM ENGLISH$(N) 。 JAPANESE$(N) 。 CF(N) 





FOR K = 1 TO N 
READ ENGLISH$S(K) 。 JAPANESE$(K)= 一 甘 語 と 日 本 語 を ベア で リー ド す る 
PRINT JAPANESE$(K) : 
INPUT ANS$ 解 合 の 入力 
IF ANS$ = ENGLISH$(K) THEN=ー- 正解 か 否 か の 判定 
PRINT " 正 魚 " 
CF(K) = 1 





PRINT "誤り " 
CF(K) = -1 


PRINT "間違え た 単語 " 
FOR K = 1 TO N 

IF CF(K) = -1 THEN PRINT JAPANESE$(K) 。 ENGLISH$(K) 
NEXT K 


DATA "catV。 12 半 " 。 VO" 。 Ayu Yahip"。 船 
DATA wwater"。 " 水 1 mm00n" 。 " 月 9 
END 
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是 成 績 表 は ど 炊 元 配 列 で 


次 の よう な 成績 表 が あっ た と し ます . 
ーー 


| Eluza 





この よう な 表 デ ー タ は, 縦 と 横 を 要素 と する 2 次 元 配 列 を 使う と 便利 で す . 
の な きえ (は 。 


DIM TEN( 2, 4) 
縦 の 要素 , 横 の 要素 の 順に 書く 


な ど と 宣言 し ます . 


国 諸 邦 会 数 学 理科 英語 
0 7 2 3 4 





4 カロ 0 


タイ 
oy 1 イラ ピッ ウ ウ 演 6 


回 押 人 


TEN(2 , 1) は Eluza の 社会 の 点数 で す 










TEN( 1, 4) は Candy の 
語 の 点数 で す 





Eluza の 社会 の 点数 を 配列 TEN に 入れ る に は , 


TEN(2, 1)=78 


と し ます . TEN(Eluza, 社会 ) の よう な 表現 が で きれ ば , より わか りや すい 
の で す が , これ が で き な い の で , Eluza や 社会 と いう 名 前 の 代り に 数 字 で 管理 し 
ます 。 

DATA 文 で 与え られ た 3 人 の 5 教科 の 成績 表 を 打ち 出す プロ グラ ム を 作っ 
て み ま し ょ う . その 際 に , 各個 人 の 5 教科 の 合計 と 平均 を 求め て 表示 する こと 
ほし ます . 





ーー-/* 成績 表 */--- 
DIM NAM$(2 ) 。 TEN(2。 4) 
EOR J = 0 TO 2 、 
READ NAM$(J) 得点 を TEN(J,K) に リー ド す る 
FOR K = 0 TO 4 
| READ TEN(J 。 人 KK) 
| NEXT K 
XT J 
DATA " Ann"。56.60.71,.63,.60 
DATA " Candy"。70.80.80.65,75 
DATA " Eluza"。75.78。.75,70。80 


CLS 
PRINT " 名 前 国語 社会 数 学 理科 身 合計 まこ 
PRINT " ニー ニー ニー ニー ニーー + キ ーーーーー ニ ーーーーーーーーーーーーーーーーーーーーーーーーーーー を ーーーーーー ニ ーーー サーー ニ ーー ニーーーー 
FOR J = 0 TO 2 
PRINT NAM$(J): " 17: 
S = 0 
FOR K = 0O TO 4 
PRINT USING "###### り > TEN(J。 K): 
S = S + TEN(J。 KK) ーー 個人 合計 を 求め る 
NEXT K 
PRINT USING " 1######": Si S / 5 
NEXT J 
END 





合 計 平均 
「 aa 人 
Ann 1 56 60 7 1 63 60 1 310 II 52 
Candy 1 70 80 80 65 75  ]1 370 1 7 4 
ド Eluza 1 7 5 7 8 7 b 7 0 80 II 378  』I 7 6 
練習 問題 6 


迷 の プロ グラ ム は DATA 文 に 書か れ て いる 文章 デー タ を リー ド し . 文章 中 に 
台 ま れる アル ファ ベッ ト の 出題 頻度 を 調べ る も の で す . 

ケル ファ ベッ ト の 大 ノ 小 文字 は 同じ も の と し て カウ ント し ます アルファベ 
ッ ト A の ASCII コ ー ド は 65, アル ファ ベッ ト a の ASCII コ ー ド は 97 で す . 

7 ルフ ァ ベ ッ ト A ま た は a の 出現 疾 度 を ALPHA( 1) に カウ ント する こと に 
し ます 。 
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"-ー--/* アル ファ ベツ ト の 頻 度 */--- 
DIM ALPHA(26 ) 


FOR K = 1 TO 26 






NEXT KK 
READ A$ 
wHILE A$ <> "/" 
FOR K = 1 TO LEN(A$) 
HB = 
IF 65 <= B AND B <= 90 THEN ALPHACB - 64) 
IF 97 <= B AND B <= 122 THEN 
NEXT K 
wEND 
CLS 


FOR KK = 1 TO 26 
PRINT CHR$S(K + 64)j "= リ "5 ALPHA(K): 
IF K MOD 8 = 0 THEN PRINI 

NEXT KK 


DATA "London bridge ig falling down“" 
DATA "falling down。 falling doOown" 

7 WV 半 プ 

END 


の 困 O 〇 の 
| 上 昌 
ご どの 
中 
l 上 
〇 
ピ 琶 回 
昌 昌 
どど ピー 
マデ 
Il 上 
どの oO 
ミ 〇 6) 


らら テー ビ 


3 B 
5 J 
0 R 
0 Z 
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CS 〇 1 
p く "7 








ALPHACB - 64) + 1 





9. リサ ノル ー チ ン で ブロ グラ ム を コソ パク ト に 


・ ブ ログ ラム を いく つか の 機能 単位 に わけ る サブ ルー チン と いう 考え 

方 を 説明 し よう . 

EIUZd : 機 能 単位 と は どう いう こと で すか . 

て 士 ・ 長 い プ ログ ラム を よく みる と , それ は , いろ いろ な 仕事 の 寄せ 集め 
で で き て いる . その よう な 個々 の 仕事 に 分 割 し た 単位 を 機能 単位 と 
い う . 

EIUZd : サブルーチン の サ プ ブ は 副 と いう 意味 で すね . 

て 二 ・ そ う , サブ ルー チン を 呼び 出す 主 ル ー チ ン を メイ ン ル ー チ ン と いう . 











言 サブ ルー チン の 定義 と 呼び 出し 
サブ プ ブルー チン は 一 般 に 次 の よう に 書き ます . 
ABC: " 
サブ ルー チン の 処理 本 体 
RETURN | 





つま り , サブ ルー チン の 先頭 (入口 ) に は サブ ルー チン の 名 前 (ラベ ル ) を 
書き その 後に コロ ン (: ) を 置き ます . そし て , 処理 し た い 内 容 の プロ グラ ム を 
書き 並べ RETURN 文 で 終わ り ま す . RETURN が 実行 され る と ,。 メ イン ルー ナチ 
ン (呼び 出し 元 ) へ 戻り ます . 

な お , RETURN 文 は サブルーチン の 物理 的 な 終わ り に 位置 し な く て も , プロ 
グラ フラム の 途中 に あっ て も か まい ませ ん し , 複数 の RETURN 文 が あっ て も か ま 
いま せん . 

さて , 先 の サブ ルー チン を 呼び 出す に は GOSUB 文 を 用 いて 





GOSUB ABC 


と し ます . サブ ルー チン の 名 前 (ラベ ル ) の 付け 方 は , 変数 名 の 付け 方 と 同じ 
き まり ぞ ず すず. 

メイ ン ル ー チ ン か ら サ プ ブルー チン を 呼び 出し て いる と き の プ ログ ラム の 流れ 
を 次 の ペー ジ に 示し ます . 
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メイ ン ルーチン 
" サブ ルー チン 






GOSUB ABC 


な お , サブ ルー チン の 中 か ら さ ら に 別 の サブ ルー チン を 呼び 出す こと も で き 
ます . 





相 性 度 を 測る サブ ルー チン 

2 人 の 名 前 か ら 相 性 度 を 調べ る こと に し ます . 相性 度 の 算出 方 法 は 次 の よう 
な まっ た だ く 根 拠 の な い , いい か げん な も の で す が , か らく り を 知ら な けれ ば 信 
じ て も ら そ える か も し れ ま せん . 











FlUuzgag… hT + 10D ょ 0162: 
J 0 EE 9 ょ 由 ED 
と 


こ 村 1 

この 公 計 を 

I00 で て 拓 た 生か 
2 ん o 相 性 大 げ 


つま り , 2 人 の 名 前 の アス キー・ コ ー ド の 合計 を 求め 、 それ を 100 で 割っ た 余 
り を 相性 度 と し ます . 


相性 度 を 測る サブ ルー チン を URANAI と し , 2 人 の 名 前 を 受け 取り , 相性 度 
を 求め る も の と し ます . 





サブ プ ブルー チン URANAI 










el 時 "0 L」 1 1 に 1」 


ポラ タラ 、ー) 1 1 
145 っ 74 二 111 寺 101 MOD 1 







二条 117+ 1 電 す 所 
"Eluza" し BS 上 | U Z a 





」 
イル 





” ~---/* 相性 占い */--- 


CLS 
WHILE 1 
INPUT "あな た の 名 前 ": As 
INPUT "彼女 の 名 前 "<・ B$ 





GOSUB URANAI - ー サ プ ブル ー チ ン ・ コ ー ル 
PRINT A$: " と "5: BS$: " の 相性 度 =": Ai 
PRINT 

WEND 

END 


URANAI: ョ ーーーー ラベ ル 
SUM = 0 
FOR KK = 1 TO LEN(A$) 
SUM = SUM + ASC(MID$(A$。 K。 1 ) ) 
NEXT K 
FOR K = 1 TO LEN( B$ ) 
SUM = SUM + ASC(MID$(B$。 K。 1 ) ) 
NEXT KK 


_AI = SUM MOD 100 
RETURN io 余り を 求め る 演算 子 
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名 前 ? taro 

前 ? hanako 

と hanako の 相性 度 = 64 

の 名 ? ichirou 

彼女 の 名 前 ? mariko 

ichirou と mariko の 相性 度 = 98 


あな た の 名 前 ? 


p 溢 ぎ 
o 計 分 
ご ル 
_ 的 9 


ドカ 
に 
当 


練習 問題 7 


先 の 相性 度 を 測る サブ ルー チン URANAI で は , A$ お よび B$ に つい て それ 
ぞ れ 1 文字 ずつ 取り 出し て 。 その アス キー・ コ ー ド を SUM に 合計 し て いる が , 
この 部 分 を さら に KEISAN と いう サブ プ ブルー チン に し な さい . 


・---/* 相性 占い */--- 


WHILE 1 
INPUT "あな た の 名 前 ": A$ 
INPUT w 彼 女 の 名 前 "・ Db$ 
GOSUB URANAI 
PRINT A$: " と ": b$S: " の 相性 度 =": AI 
PR INT 

wEND 

END 

URANAI : 
SUM = 0 
Z$ = A$: GOSUB KEISAN 


Al = SUM MOD 100 
RETURN 


KEISAN: 






SUM = 
NEXT K 
RETURN 





10. ゲー ム に 挑戦 





先生 : 少 し 気分 を 変え て 。 ゲーム ・ プ ログ ラム を 作っ て みよ う . 
EIUZ : フ ァ ミ コン の ゲー ム は すご く 手 が こん で いて 作る の は 上 区 し いで し ょ 
う ね 。 
2 し 士 ・ そ うだ ね . ここ で は ボー ル を CRT 画 面 で 飛び 回 ら せ , それ を 打ち 返 
す と いう 簡単 な ゲー ム に し よう と 思う . 


時 ホー ル を 秘 動 す る 








EEIUZa _: ボー ル を 画面 上 に 表示 する に は どの よう に し た ら よ い の で すか . 
生 ・ ボ ー ル を 画面 上 の 任意 の 位置 に 表示 し な けれ ば な ら な いか ら , 
LOCATE 文 と いう も の を 使い , 


LOCATE Y, X:PRINT  “o" 


と する . これ で 画面 上 の (Y, 叉 ) 位 置 に .。 ボー ル を 示す o が 表示 さ 
れ る. 





・ そ れ で は , ボー ル を 動か す の は どの よう に し た ら よ い の で すか . 
2 し 士 ・ CRT 画 面 の 左 か ら 右 に ボー ル を 移動 (Y 座 標 を 10 に し て ) する の は 
巡 の よう に する . 
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FOR X テ 1 TO 80 
LOCATE 10,X :PRINT “0” ューーー ボ ー ル の 表示 
FOR 「= ニ 1 TO 500 : NEXT T ュ ーーー タ イム ・ デ ィ レ イ 
LOCATE 10,X :PRINT  。 。 ューー-ー ボ ー ル を 消す 
NEXT X 


タイ ム ・ デ ィ レ イ を 置か な いと , ボー ル の 動き が 速 す ぎ て 目 に 見 え 
な い . この タイ ム ・ デ ィ レ イ の ルー プ の 値 を 変え れ ば 。 ボー ル の 移 
動 ス ピー ド を 変え る こと が で きる よ . 









時 ボー ル を 反 遇 す る 


下図 に 示す よう に , ボー ル は 壁 の 中 を 45* の 角度 で 進み , 壁 に 当たっ た ら は ね 
返る も の と し ます . 





ポール の 位置 を (Y, 双 ) と し た と き , ボー ル の 移動 式 は , 


X=X 十 A 
Y=Y+B 


で 表 さ れ ま す . 
この 式 の 定数 A, B は ボー ル の 進行 方 向 に より 次 の よう な 値 を と り ま す . 


① の 方 向 … A= ニ 1. B= 

② の 方 向 … A=1, B=ー1 
③ の 方 向 … A=ー1, B=ー1 
④ の 方 向 … A= ニ ー1. B= 


この こと は , ボー ル が 横 壁 に 当たっ て は ね 返る と B の 符号 を 反転 し , 縦 壁 に 
当たっ て は ね 返る と A の 符号 を 反転 し て いる こと を 意味 し ます . 
これ ら の こと か ら , ブロ グラ ム は 次 の よう に な り ま す . 








CLS 
PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 
FOR kK = 1 TO 18 
PRINT "H 
NEXT k 
PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 


描 1 

XX = 02 ママ a 10 

WHILE 1 
LOCATE y。 x: PRINT "o" 
FOR t = 1 TO 200: NEXT t 
LOCATE y。 x: PRINT " "9 
IF X = 2 OR X = 61 THEN a = -a ュ ーー 縦 壁 に 当たっ た と き 
IF y=2 ORy = 19 THENb = ~-b ューーーーー- 横 壁 に 当たっ た と き 
広 = 叉 + す 8: YY =Y+ b 

WEND 





思 フ ケッ ツ ト の 移動 


フケ ッ ト は [と いう キャ ラク タ で 表し , [の キー が 押さ れ た ら 上 方 に , [2| の 
キー が 押さ れ た ら 下 方 に 移動 する も の と し ます . 





キー が 押さ れ た か 否 か は , INKEY $ と いう 関数 を 用 いて 調べ ます .INKEY 
$ は 押さ れ た キー の キャ ラク タ を 文字 列 で 返し ます . INPUTT 文 で キー 入力 を 
受け 付け た の で は , を 入力 する まで 待っ て いる た め , そこ て 処理 が 中 断 し て 
し まい ます . と ころ が INKEY $ は , キー 入力 が な けれ ば “ "(ヌル 文字 列 ) を 
返し て 処理 を 続行 する の で ゲー ム ・ プ ログ ラム に 向い て いま す . 

寺 の ポール 反 射 プ ログ ラム に , ラケット 移動 部 分 を 付加 し た プロ グラ ム を 示 
し ます 。 





CLS 
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PRINT "HHHHHHHHHHHHHHHHTHIHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 


FOR K = 1 TO 18 


H"* 


PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 


PRINI "H 
NEXT Kk 
義生 1: 人 め = 8 
X = 10: y = 10 
お 紅 表 著 // 


LOCATE yl1, 53: PRINT "[" 


wHILE 1 
LOCATE YY。 XX: 


PRINT "o" 


FOR t = 1 TO 200: NEXT t 


f$ = INKEY$ 


"キー 入力 


IF f$ = "1" THEN 
LOCATE yl1, 53: PRINT " " 
IF y1 > 2 THEN y1 = yl1 - 1 ーーーーーー ラ ケッ ト を 上 に 移動 
LOCATE y1,。 53: PRINT "[" 


END IF 


IF #f$ = "2" THEN 
IF y1 < 19 THEN y1 = y1 * 1 ニーーーー ーー ラケット を 下 に 移動 


LOCATE y1。 


END IF 


53: PRINT "[" 


LOCAIEK YY。 双 : PRINI " 

IF X = 2 OR XX = 61 THEN a = -a 
IF y = 2 ORy = 19 THENb = -b 
XX = 双 + 8&: YY = アア + b 


WEND 








・ ラ ケッ ト の 移動 を 「IF Y1>2」 と 「IEF Y1<19」 と いう 条件 を 


付け て 判定 し て いる の は な ぜ で すか . 


・Y1 ニ 2」 と 「Y1 19」 の 位置 は 上 ・ 下 璧 の 位置 な の だ . この 値 


を 超え て ラケット を 移動 きせ た ら ラ ケッ ト が 壁 を つき 破っ て し まう 
か ら , その 処置 を 判定 し て いる の だ . 





Ci es EEE 





園 ラ ワケ ツ ト ・ ゲ ー ム 





2 士 ・ 以 上 で 基本 的 な 原理 が わか っ だ た と 思う の で , ラケット ・ ゲ ー ム と し 
て 完成 させ よう と 思う . 

EIUZd : ボー ル が ラケット に 当 だ っ て は ね 返る 部 分 が まだ わか り ま せん が . 

2 二 ・ 壁 に 当る の と 同じ し だが, ボー ル が ラケット の 直前 (X=52) に 来 た 
と き に , ボー ル の Y 座 標 が ラケット の Y 1 座標 の 土 1 の 範囲 に 入っ 
だ た だら, ラケット に ボー ル が 当たっ た と 判定 する . 


ューー Y 1 一 1 
「 さ ーー Yi 
ーーー Y1 キ 1 





完 生 。 : ラ ケッ ト ・ ゲ ー ム の 基本 的 な 構成 は 次 の よう に な っ て いる . 
N =10 ・ 球 の 数 
S =0 得点 
WHILE N>0 残り 球 の 判定 
・ 球 ,。 ラケット の 初期 設定 











WHILE x<56 ーー 球 が ラケット を 越え た か の 判定 
ポー ル の 移動 
ラケット 移動 
ボー ル の 反射 

WEND 。 

N=N 一 1 





WEND 











CLS 
COLOR 3 
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PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 


FOR KkK = 1 TO 18 





PRINT "H H" 
NEXT k 
PRINT "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH" 
n = 10 ′ 球 の 数 
8 = 0 ′ 得点 
COLOR 6 
WHILEn>O 
8 = 1: b = 1 」 
X = 10: y = 10 ′ 球 の 始点 
y1 = 7 ラケット の 始点 
LOCATE yl1,。 53: PRINT "[" 
LOCATE 1。 10: PRINT "ノコ リ =": n 
WHILE x < 56 
LOCATE y。 x: PRINT "o" ′ 球 の 表示 
FOR t = 1 TO 300: NEXT t 
f$ = INKEY$ キー 人 入力 
IF f$ = "1" THEN 
LOCATE y1。 53: PRINT " " 
IF y1 > 2 THEN y1 = y1 - 1 
LOCATE yl1, 53: PRINT “"[" 
END IF 
IF f$ = "2 THEN 
LOCATE y1, 53: PRINT " " 
IF yl1 < 19 THEN y1 = y1 + 1 
LOCATE y1。 53: PRINT "[" 
END IF 
LOCATE y。 x: PRINT " " ′ 球 を 消す 


IF X = 52 AND yl - 2 < y AND y < yl1 + 2 THEN 


ね 三 - る 
= XX - 1 
ミ 急 キ 1 


に | 
LOCATE 1。 40: PRINT “Score=“< 


END IF 
IF XX = 2 OR X = 61 THEN a = -a 
IF y = 2 OR y = 19 THEN b = -b 
本 芝 ご も 義生 避 。 小 本 - 包 

WEND 

| 人 5 還っ 寺 | 

LOCATEK Y1。 53: PRINMI “ パ 

FOR {t = 1 TO 100: NEXT t 

WEND 











HHHHHHHHH ノ コリ = 2 HHHHHHHHHHHHHHHHHHHHHHScore= 11 HHHHHHHHHHHHH 
H H 
H H 
H H 
H H 
H H 
H H 
H H 
H H 
H H 
H O H 
H H 
H H 
H H 
H H 
H H 
H H 
H H 
H H 
H H 


HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 





第 / 草 


QB が サポ ボー も 
構造 化 ブ ログ ラミ ング 








OUuick BASIC は 構造 化 プ ロブ プラ ミン グ を 可能 に し 


だ 新 世 代 BASIC で す . 


この 草 で は , 構造 叙 プ ロ プ ラミ ンプ と は 何 ガ , 構造 化 


を 行う 上 で 〇 OB が 新た に サボ ー ト し た 近代 的 流れ 制御 構 
造 , プロ シー ジ ヤ , デー タ 型 と は どの よう な も の な の か が 
を 説明 し ます . 
この 草 を マス ター する こと で , C や Pascoal に も 劣ら 
な い BASIC プ ログ プラム が 書け る よう に な り の ます . 


| 構造 化 プ ログ ラミ フグ と は 





EIUZ8 : 構造 化 プ ログ ラミ ング と いう 言葉 を よく 聞き ます が , 一 体 ど の よう 
な も の な の で すか . 

て 生 ・ ブ ログ ラム と いう の は 数 学 な どの 解答 の よう に 画 一 的 な も の で な く , 
作る 人 に よっ て 千 差 万 別に な っ て し まう . これ は プロ グラ ム を 管 
理 ・ 運 営 し て いく 上 で 好ま し く な いこ と な の だ . 

そこ で , ブロ グラ ム 作 り に も ある 程度 の ルー ル を 設け , だ れ が 作っ 
て も 同じ 品質 の わか りや すい 構造 の プロ グラ ム が で きる よう に し よ ょ 
うと する 手法 が ある . この 手法 の 代表 的 な も の が 構造 化 デ ログ ラミ 
シグ が の だ 、 





構造 化 プ ログ ラミ ング は , オラ ンダ の ダイ クス トラ (E.W.Diikstra) が 提唱 
し た ブロ グラ ミン グ の 方 法論 の 1 つ で す . 

構造 化 プ ログ ラミ ング は , 明確 な アル プリ ズム と デー タ 構 造 の 上 に 立っ て . 
向 題 を トッ プ ・ ダ ウン て で 機能 分 解 し , 連接 (sequence), 判断 (if then else). 
反復 (while) と いっ た 明確 な 制御 構造 だ け を 用 いて プロ グラ ミン グ (goto レ ス 
プ ブログ ラミ ング ) する こと に より , 生産 性 が 高く 信頼 性 の 高い プロ グラ ム を 作 
成 し よ うと する も の で す . 

会 来 型 BASIC に 対す る 悪評 の 多く は , BASIC が 構造 化 ゲ プログ ラミ ング を 行 
い に く いと いう 点 に あり まし た . と ころ が , Quick BASIC は この よう な 従来 弄 
BAS1C の 欠点 を 改良 し , 構造 化 プ ログ ラミ ング が 行え る 言語 に 生ま れ 変 わっ た 
の で す . 

Quick BASIC が 構造 化 プ ログ ラミ ング を 実現 する 上 で 新た に サポ ー ト し た 
主 な 機能 は 以下 の も の で す . 


1. 近代 的 流れ 制御 構造 の 完備 
2. プロ シー ジャ (手続 き ) の サポ ー ト 
3 。 デー タ 弄 の 拡充 


以下 の 節 で は , これ ら に つい て 細か に 説明 し て いき ます . 
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/, 近代 流れ 市 入構 千 











先 牛 ・ プ ログ ラム を 書く 上 で の 基本 は , IF, FOR, WHILE と いっ た 流れ 制 
和 仙 文 を し っ か り 理 解 し て いる か 和 否 か な ん だ . 

EIUZa : これ ら に つい て は 第 6 章 で 既に 学び まし た が . 

元 生 ・ 従 来 の BASIC で は その 程度 の 制御 文 し か サポ ボー ト し て いな か っ た 
が , QB で は C や Pascal と 同 程度 の 近代 的 な 流れ 制御 構造 を いく つ 
か サポート し て いる . 

EIUzZa : 近代 的 流れ 制御 構造 が ある と どん な 点 で メリ ッ ト が ある の で すか . 

て 二 ・ プ ログ ラム を わか り に くく する 大 き な 原 因 と し て GOTO 文 と いう 

の が ある が , 近代 的 流れ 制御 構造 を 用 いれ ば GOTO レ スプ ログラム 

が 可能 と な り , ブロ グラ ム の 構造 が 明確 に 表現 で きる よう に な る . 


ググ スト ラ は すべ て の プロ グチ テム は 。 


・ 連 接 (sequence) 
・ 判 断 (if then else) 
・ 前 判定 反復 (while) 


と いう 3 つの 基本 制御 構造 を 組み 合わ せ て 書く こと が で きる と し まし た これ 
を スト ラク チャ ー ド 定理 と いい ます . 
し か し , 実際 に プロ グラ ミン グ す る 場合 は 


・ 後 判定 反復 (do loop) 
・ 複 数 条件 判断 (select case) 
・ 所 定 回 反復 (for) 


な ども 必要 に な り ま す . 以上 の 6 つ を 近代 的 流れ 制御 構造 と 呼び ます . 
な お , 連接 と いう の は 単に 実行 文 が 上 か ら 下 に 並ん で いる も の を いい ,。 特別 
な 制御 文 が ある わけ で は あり ませ ん . 


と いい 
ます . 


す . 


時 ブロ ッ ツ IF 


従来 の BASIC で は , THEN 節 , ELSE 節 に 置く 文 が 複数 の 場合 は 。 次 の よう 
に GOTO 文 を 使っ て 別 の 場所 に 分 岐 さ せな けれ ば な り ま せん で し た . これ は プ 
ログ ラム を 大 変わ か り に くく し ます . 


IF 条件 式 THEN TBLOCK 
文 1 
天 2Z 


GOTO OWARI 
TBLOCK ・: 


文 1 
文 2 


0OWARI : 


(Quick BASIC で は プ ブロッ ク IF 文 が 導入 され まし た の で , 上 の プロ グラ ム は 次 
の よう に コン パク ト に 書く こと が で きま す . 


フロ ッ ク 


_ ブ ロッ ク mm 
いく つか の 文 を 文法 的 に ひと か た まり に し た も の を プロ ッ ク ( 複 文 ) 





フロ ッ ク は THEN, ELSE 節 , CASE 節 な ど に 置く こと が で きま す . 
人 徒 来 の BASIC の 最大 の 欠点 は , この プ ブロック と いう 概念 が な か っ た こと で 
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プロ ッ ク IF 文 は 次 の よう に ELSEIF 節 を 持つ こと も で き 。 複数 の 条件 判断 を 
付 う こと ども 人 ぜ き ます . 
IF 条件 式 1 THEN 
| プ ブロック 1 
ELSEIF 条件 式 THEN 
| ブロ ッ ク 2 





ブロ ッ ク n 病 
ELSE | 2mz2m | 
ブロ ッ ク m T 


END IF 


く 条 件 式 1> を 満た せ ば く ブ ロック 1 > を , く 条件 式 2 > を 満た せ ば < く ブ ロ 
ッ ク 2 > を , … く 条件 式 n> を 満た せ ば く ブ ロッ ク n> を それ ぞ れ 実行 し , 満た 
す も の が な けれ ば く プ ブロ ッ ク m> を 実行 し ます . 

ブロ ッ ク I 上 文 の ELSEJEF 節 , ELSE 節 は , そこ に 置く も の が な けれ ば 省略 で き 
ます が , END IF は 省略 で きま せん . 

まだ , IF 文 の 中 に IF 文 を ネス ト さ せる こと も で きま す 。 


IF 条件 式 1 THEN 


IF 条件 式 2 THEN 








例 


IF A>=90 THEN 


RANK(1)= ニ RANK(1) 


ELSEIF A>=80 THEN 


RANK(2)=RANK(2) 二 


ELSEIF A>=60 THEN 


RANK(3)=RANK(3) + 


ELSE 


RANK(4)=RANK(4) 二 


END 上 lF 


これ は 得点 人 A を 90 以 上 , 80 以 上 ー90 未 満 , 60 以 上 ー80 未 満 , 60 未 満 の 4 ラン 
ク に 分 類 し , その 度数 を カウ ント する も の で す . ELSEIF の 条件 式 に A<90 
AND A>80 の よう に 書か な く て も よい 点 に 注意 し て くだ さい . な ぜ な ら 此 1 
番目 の ELSEIF が 実行 され る の は , A が 90 未 満 の 場合 だ から で す . A が 90 以 上 の 
場合 は THEN 節 が 実行 きれ て , プ ブロック IF 文 を 抜け て いる の で す . 
ー 、 ブ ロッ ク IF と 従来 IF の 使い 分 け 
基本 的 に は ブロ ッ ク IF で 記述 すべ き で す が , 次 の よう に 単純 な IF 文 は , 従来 
』 型 の IF で 書い た ほう が コン パク ト な 場合 も あり ます . 


IF A>MAX THEN 
MAX ニ A 
END 上 lF 


] 


1 


1 


1 


IF A>MAX THEN MAX=A 


従来 型 の IF は すべ て を 1 行 に 


員 SELECT CASE 


フロ ッ ク I の ELSEIF 節 に より 複数 の 条件 を 判定 する こと が で きま し た が が , 
SELECT CASE を 用 いれ ば も っ と スマ ー ト な 複数 条件 判定 を する こと が で き 


ます . 


SELECT CASE の 一 般 書 式 は 以下 の と お り で す . 
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記述 し 、 END IF を 付け ませ ん . 
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SELECT CASE 条件 式 
CASE 式 1 
ブロ ッ ク 1 
CASE 式 2 
| ブ ロック 2 


CASE 式 n 
デア ロック n 
CASE ELSE 
ブロ ッ ク m 
END SELECT 


く 条 件 式 > と 一 致す る 式 を < 式 1> か ら 順 に 探し , 一 致し た と ころ の ブロ ッ 
ク を 実行 し て SELECT CASE 文 か ら 抜 け ま す . も し 一 致す る 式 が な けれ ば 
CASE ELSE 節 の ブロック が 実行 され ます . CASE ELSE 節 は な く て も か まい 
ませ ん . 

CASE の 後に 書く 式 は , 5 や “abc" の よう な 値 の 他 に , 次 の よう に 値 の 範囲 
を 指定 する こと が で きま す 。 


CASE 式 1 TO 式 2 
CASE IS 関係 式 





文例 
INPUT x 
SELECT CASE X 
CASE 1 


x が 1 の と き の 処 理 
CASE 2 T0 5 = 
* が 2 て 5 の と き の 処 理 
CASE 6, 8, 9 
x が 6 か 8 か 9 の と き の 処 理 
CASE IS> ニ 10 
* が 10 以 上 の と き の 処 理 
END SELECT 


左 の 値 は 右 の 値 よ り 小 さく な けれ ば 
し いす が が も 





カン マ (,) で 複数 の 式 を 並べ て 書け る . 
この 場合 は OR 条件 と 考え て よい 





x IS >=10 と いう 意味 に 考え れ ば よい 








INPUT Test$ 
SELECT CASE Test$ 
CASE “A" TO “AZZZZZZZ" 
_Test$ が A で 始ま る 文字 の と き の 処理 
CASE IS <"A" 
_ Test $ が アル ファ ベッ ト 以 外 の 文字 の と き の 処理 
CASE *0uick" iii 
| Test$ が “Quick" の と き の 処 理 
END SELECT ーー 


DO LOOF 





| 先生 ・ 第 6 章 で WHILE 一 WEND と いう くり 返し 制御 文 を 学ん だ が , これ 
は くり 返し の 前 部 で くり 返し の 終了 条件 を 判定 する タイ プ の も の で. 
前 判定 反復 と いう . 
EIuZa : 近代 的 流れ 制御 構造 で は , 後 判定 反復 と いう の も あり ます ね . 
2 十 : 会 来 の BASIC で は この 後 判定 反復 を 行う けち も の は な か っ た が , QB で 
は DO LOOP 文 に より これ を 行う こと が で きる よう に な っ た . 
だ だ し , DO LOOF 文 は 後 判定 反復 ば か り で な く 前 判定 反復 に も 使 
える 油 用 的 な くり 返し 文 な の だ . 






DO LOOF 文 は , 条件 式 を くぐり 返し の 前 部 に 置く か 後部 に 置く か , さら に 条件 
葉 に WHILE を 使う か UNTIL を 使う か に より , 次 の 4 種類 の くり 返し を 行う こ 
に が で な ます 。 


DO WHILE 条件 
ブロ ッ ク 
LOOP 





前 判定 反復 で く 条 件 > が 真 の 間 く プロ ッ ク > を くり 返し ます . 
従来 の WHILE て WEND と 同じ で す . 








前 判定 反復 で く 条件 > が 偽 の 間 く プ ブロック > を くり 返し ます . 


DO 


後 判定 反復 で く 条 件 > が 偽 の 間 く プ ブロッ ク > を くり 返し ます . 


上 IUZ8 
2 し 士 


ヒ IUZ8 
生 
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DO UNTIL 条件 
ブ プ ブロック 
LOOP 





プロ ッ ク 
LOOP WHILE 条件 





後 判定 反復 で く 条 件 > が 真 の 間 く プロ ッ ク > を くり 返し ます . 


DO 


ブロ ッ ク 
LOOP UNTIL 条件 








・ 4 種類 も ある と , どれ を 使っ た ら よ いか 混乱 し て し まい ます . 

・ WHILE は 条件 が 真 の 間 ル ー プ を くり 返す の に 対し , UNTIL は 条件 
が 偽 の 間 ル ー プ を くり 返す . WHILE を 用 いる か UNTIL を 用 いる か 
は どちら の ほう が 条件 の 意味 が わか りや すい か と いっ た 感覚 の 問題 
だ と 思う 。 

「UNTIL 条件 」 は 「WHILE NOT (条件 ) 」 と 同じ 意味 に な る . 

・ 前 判定 反復 と 後 判 定 反復 の 使い 分 け は どう 考え た ら よ いで すか . 

・ 実 際 に プロ グラ ム を 作る 場合 は 前 判定 反復 で だ いた い の も の が 作れ 

る が , たまに 後 判定 反復 の ほう が コン パク ト に まとまる 場合 も ある . 

その 例 を 次 に 示 そ う . 









配 多 A$( ) に READ 文 で 次 の よう な デー タ を リー ド す る 場合 を 考え て み ま 
し ょ う 。 デー タ の 終わ り は “/” と し ます . 


DIM a$(100) 
DATA “Candy, “Eluza"。 Nina"m。 …。 ブリ 


ます 前 判定 反復 で 書く と 次 の よう に な り ま す . 


Num= 0 

READ a$(Num) 

DO WHILE a$(Num) く > “ング " 
Num =Num 十 1 
READ a$(Num) 

LOOP 


Num= ニ Num 一 1 ユエ ーーーーーーーーー 






ルー フ プ に 入る 前 と ルー プ の 後部 の 
2 男 所 で READ を し な けれ ば な ら な 
い . これ を 2 度 読み と 言う 





"の " を 入れ な い デ ー タ 数 
これ を 後 判定 反復 で 書く と 次 の よう に コン パク ト に な り ま す . 


Num ニー 1 
DO 
Num= テ Num 十 1 
READ a$(Num) 
LOOP WHILE a$(Num) く > “ング " 


Num=Num- 1 


時 ルー プ か ら の 制 脱出 EXIT 


まれ に で は あり ます が , ルー プ の 途中 で ルー プ か ら 抜 けた い 場合 が あり ます . 
この よう な と き , 従来 型 BASIC で は GOTO で 抜け て いま し た が , Quick BASIC 
で は EXIT DO まだ た は EXIT FOR に より スマ 
ー ト に ルー プ を 抜け する こと が で きま す .EXIT 
DO は DO LOOP ル ー プ か ら の 脱出 , EXIT 
FORK は FOR ルー プ か ら の 脱出 を 行い ます . 
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FOR K テ 1 IO N 


IF 脱出 条件 THEN 

PRINT 強制 脱 由 し ます 

EXIT FOR ョ ーーー- これ が 実行 され る と FOR 文 か ら 抜 ける 
END IF 


NEXT _K 


明 電卓 プロ グラ ム 
"10.5 十 20.5 や “50.1 プ 2" の よう な 文字 列 か ら 数 値 と 演算 子 を 分 離し , 文 
字 列 で 与え られ た 式 の 値 を 計算 する 電卓 プロ グラ ム を 作っ て み ま し ょ う ). 
文字 列 は Expression$ に リー ド し , MID$ で 1 文字 ずつ 取り 出し て 演算 子 の 位 
直 を 探し ます . そし て その 位置 を 境 に 左側 と 右側 の 文字 列 を 数 値 に 変換 し ます . 


\ RIGHT$ 


/ wm 





挫 の ブロ グラ ム は DO WHILE-ーLOOP, SELECT CASE, EXIT FOR な ど 
を 使用 し た 例 で す . 
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リーー-/* 電卓 プロ グラ ム ォ */--- 


CLS 
READ Expression$ 
DO WHILE Expression$ <> “END" ーー 
FOR K = 1 TO LEN(Expression$) | 1 女 字 す つ 取り 出す 
Ope$ = MID$(Expression$, 1 ) 
IF Ope$ = "+" OR Ope$ = "-" OR Ope$ = "*" OR Ope$ = "/" THEN 
e1 = VAL(LEFTS(Exprese10ns. K - 1)) =ーーー 左側 の 値 


62 = VAL(RIGHT$(Expression$。 LEN(Expression$) - k) ) さ ーー- 右側 の 値 


EXIT FOR 
END IF SH 
NEXT k 
SELECT CASE Ope$ 
CASE LEF 
PRINT Expression$: "="・ e1 + e2 
ASF LE 』」 
PRINT Expression$: "=": e1 - e2 
CASE "まげ 
PRINT Expression$: "=": e] * e2 
CASE "/" 
PRINT Expression$: "=":・ e1 / e2 
CASE ELSE 「 
PRINT Expression$: ": 式 が 異な り ま す " 
END SELECT 


READ Expression$ 
P 


DATA "10.5420.5" "750.1/27. "50023 "。"10 * 3.5"。 "END" ペ ーー デー タ の 終わ り 
END 


10.5+20.5= 31 


50.1/2= 25.05 
500?3 : 式 が 異な り ま す 
10 * 3.5= 35 





_ 変 数 名 の つけ 方 に つい て 一 言 


ーー = 


変数 名 は 大 文字 で も 小文字 で も 同じ も の と し て 扱わ れ ま す . つま り SUM. 


Sum, Sum な ど は すべ て 同じ で す . 


第 6 章 の プロ グラ ム で は , 変数 名 と し て 大 文字 を 用 いて きま し た . これ は 特 
に 意味 が ある わけ で は あり ませ ん が , 従来 型 BASIC が 大 文字 を ベー ス に し て い 


た の で それ に 合わ せ た だ け で す . 


と ころ で 構造 化 ア ログ ラミ ング の 考え 方 か ら す る と , わか りや すい プロ グラ | 


| ニム を 書く こと が 要求 され ます . その た め に は 変数 名 も 意味 の ある 名 前 (あま り 
長 す ぎ て も よく な い ゝ が ) , 見 や すい 表記 が 望 し いと いえ ます . 


嘩 体 的 に どの よう な 名 前 。 表記 が 望 し いか は 個人 的 な 感覚 に も 左右 され 一 概 
に は いそ くま せん. 
本 書 の 以後 の 章 で は Sum の よう に 先頭 を 大 文字 , 後 を 小文字 と する 変数 名 の 


表記 を 採用 し ます . 
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練習 問題 8 
ボ ポー カ ・ カ ー ド を 配る プロ グラ ム を 作り な さい . 


Queen 





KIng 


カー ド の 種類 (スペ ー ド ー ク ラブ ) を Card, カー ド の 数 字 (Ace-King) を 
Num に , それ ぞ れ 乱数 を 用 いて 選び ます . 

同じ カー ド を 配っ て は いけ な い の で , カー ド を 配っ た ら Flag ( 。 ) と い 
う 二 次 元 配 列 に 1 を 設定 し て お きま す . 


) ニニ --/* ボ ポー カ ・ カ ー ド を 配る *#/--- 
DIM Flag(4。 13) 。 Kind$(4) 


Kind$(1) = "Spade": Kind$(2) = "Dia " 
Kind$(3) = "Heart": Kind$(4) = "Club " 


FOR K = 1 IO 4 


FOR j TO- る 
Flag を (K。 j) = 0O 
NEXT j 
NEXT k 
RANDOMIZE (VAL(RIGHT$S(TIME$S。 2)) ) * 各 数列 の 自動 設定 


FOR j = 1 TO 3 
PRINT j: "番目 の 人 " 
FOR k = 1 TO 5 


DO 

Card = INT(4 * RND + 1) カー ド の 種類 
> |  。 カード の 数 字 
既に 配 つ た カー ド か 判定 
ーー ′ 配 つた カー ド に 印 を する 





PRINT Kind$(Card) : 
SELECT CASE Num 
CASE 1 
PRINT " Ace" 


PRINT Num 
CASE 11 
PRINT " Jack" 


PRINT "Queen" 


PRINT "King" 
END SELECT 
X] K 


NEXT j 
END 





3. プロ シー ジャ ヤ (手続 き ) 





先生 ・ 第 6 章 で メイ ン ル ー チ ン と サブ ルー チン と いう 考え 方 を 説明 し た と 
思う が. 

EIUZG : あ る 機能 単位 を メイ ン ル ー チ ン か ら 切 り 離 し て 作っ た も の を 。 サ プ ブ 
ルー ジョ いう の し な ね 

2 て 十 ・ こ の 従来 の サブ ルー チン (GOSUB 文 で 呼び 出す も の ) は 機能 的 に あ 

まり 優れ て いな い の だ . 

そこ で , QB で は プロ シー ジャ (手続 き ) と いう 機能 的 に 優れ ん た サブ 

ルー チン 構造 を 提供 し て いる . 








罰 プロ シー ジャ と は 


従来 型 の BASIC で 扱っ て いる サブ ルー チン は 。, 次 の よう な 欠点 を 持っ て いま 
に i 法 。 


・ サ フル ー チ ン 間 の デー タ 抽 受 は 共通 変数 を 介 し て 行う た め , それ と 異な 
る 変数 を サブ ルー チン に 渡す 場合 は 炉 雑 に な る . 

・ メ イン ルー チン と サブ ルー チン で 使う 変数 は すべ て 共通 みな た め , 各 ル ー 
ナン 間 の 独立 性 が 保 て な い . 


Quick BASIC で は 従来 型 BASIC の 欠点 を 改良 し た サブ ルー チン を サポ ー ト 
し ます . この 新しい 形態 の サブルーチン を プロ シー ジャ (手続 き ) と 呼び ます . 
プロ シー ジャ は 次 の 特徴 を 持ち ます . 
・ プ フロ シー ジャ 間 の デー タ 授 受 は 引数 (ひき すう ) を 用 いて 行う た め , 汎 
用 的 な デー タ 授 受 が 行え る . 
・ 各 プロ シー ジャ 内 の 変数 は それ ぞ れ 独 立 (これ を ロー カル 変数 と いう ) 
な の で , 同じ 名 前 の 変数 を 使っ て も 混同 され な い . 
・ 他 の モジ ュー ル か ら 使 用 する こと が で きる . 
Quick BASIC の プロ シー ジャ は , SUB-END SUB (サブルーチン ・ プ ロ シ 
ー ジ ャ ) FUNCTION END FUNCTION (関数 プロ シー ジャ ) の 2 種類 で 実 
現さ れ ま す . 
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田 け サブ ルー チン ・ ブ プロシージャ 


まず , サブ ルー チン ・ プ プロシージャ の 人 簡単 な 例 を 紹介 し まし ょ う . 
炊 に 示す サブ ルー チン ・ プ ロ シ ジー ジャ Disp は , Moji$ の 内 容 を Num 回 。Col で 


示さ れる 色 で 表示 する も の で す . 


① プ ロ シ ー ジ ャ の 宣言 


DECLARE SUB Disp (Moji$,。 Num。 Co1 ) ーー | 






表示 回 数 
し し 9 ー 表示 色 
Disp "Hello Quic BASIC"。 2。 [ 
Disp "Hello QuUiC C"。 3。 5 ト -< 


END 
- プ ロ シ ー ジ ャ 名 





SUB Di8sp (MOji$。 Num。 

FOR K = 1 TO Num 
COLOR Co1 仮 引数 
PRINT Moji$ 

NEX] K 

END SUB 







メイ ン ル ー チ ン に お いて , プロ シー ジャ の 呼び 出し を 可能 と する た め に , 
プロ シー ジャ の 名 前 と 引数 を 宣言 し ます . 

も し , この DECLARE 文 を プロ グラ マ が 記述 し な けれ ば , プロ グラ ム を セ 
ー ブ し た と き に QB の エディ タ が プロ シー ジャ の 定義 部 を 参照 し て 自動 的 に 
生成 し ます 。 


②⑦② プ ロ シ ー ジ ャ の 呼び 出し 
DECLAKE で プロ シー ジャ を 富 言 し て いる の で , プロ シー ジャ 名 を 書く だ 
け で (CALL 命 令 を 使わ ず に ) プ ロ シ ー ジ ャ を 呼び 出す こと が で きま す . プロ 
ンー ジャ 名 の 後に , プロ シー ジャ に 渡す デー タ を カン マ (, ) で 区 切っ て 書き 
ます . これ を 実 引数 ( じ つ ひ きす う ) と いい ます . 


③ サ ブルー チン ・ プ ロ シ ー ジ ャ の 定義 

サブルーチン ・ プ ブ プロシージャ は SUB と END SUB の 間 に 定 義 し ます . SUB 
の 後に プロ シー ジャ 名 を 書き , その 後に デー タ を 受け と る 変数 名 を カン マ 
(。) で 区 切っ て 書き ます . これ を 仮 引数 (か り ひ きす う ) と いい ます . 








mWOB 上 で プロ シー ジ ヤ を 作る 際 の 注意 点 


さて , こ の プ ブログ ラム を QB の エディ タ で 作成 する 場合 に は ちょ っ と し た 知識 
が 必要 で す . と いう の は , QB で は 各 プ ロ シ ー ジ ャ を それ ぞ れ 別 の ウイ ンド ウ で 
官 理 し て いる た め ,。 メイ ン ル ー チ ン と プロ シー ジャ を 同じ ウイ ンド ウ 内 で は 見 
られ な いか ら で す . 各 プ ロ シ ー ジ ャ お よび メイ ン ル ー チ ン は , | SHIFT | F・2 | 
に より 順次 切り 換え て 画面 に 表示 で きま す . 

また , QB の エディ タ 上 で 「SUB プロ シー ジャ 名 (引数 ) 尺 」 と 入力 する 
と , 自動 的 に プロ シー ジャ を 記述 する ウイ ンド ウ に 切り 換わり ます . 

プロ シー ジャ の QB 上 で の 操作 方 法 は 第 4 章 を 参照 し て くだ さい 、. 






| SUB Disp( Moj, Num, Col) 





とこ 






SHIFT 二 F・2 / 

て 順 次 画面 が ー ア 

切り 換わる / 
/ 







END SUB~ 目 動 的 に 生成 され る 


三 滞 さき 四 較 


es 





DECLARE SUB Disp( Moj 和 , Num, Col) 


ub キキ 
つり / 和 E 


@ 内 、 





CLS 
Disp "Hello" 
Disp "Hello" 









END 


SUB Disp(Moj ゆ , Num, Col) 


引数 渡し 


EIUZa : 引 数 の 役割 が よく わか ら な い の で す が . 

先生 引数 は プロ シー ジャ 間 で デー タ の 授受 を する た め の デ ー タ 運搬 人 の 
よう な も の な の だ . 

EIUZ : 引 数 に は 2 種類 ある よう で す が . 

2 士 ・ ブ プロ シー ジャ の 呼び 出し 時 に 書く 引数 を 実 引 数 (し じ し つ ひき すう ), プ 
ロ シ ー ジ ャ の 定義 側 で 書く 引数 を 仮 引数 (か り ひ きす う ) と いう . 

EIUZa : 実 引数 と 仮 引数 の 名 前 は 違っ て いて も よい の で すか . 

2 し 士 ・ 名 前 は 違っ て いて も よい が , デー タ の 型 は 一 致し て いな けれ ば な ら 

な い . 
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先 の Disp プ ブ プロシージャ を 従来 の サブ ルー チン を 使っ て 書く と , 次 の よう に な 
りり ます 。 


Moji$= “Hello Ouick BASIC"” |=ーー サブ ルー チン の 変数 に デー タ を 代入 する 


Numー 2 


Col 三 3 
GOSUB Disp 
DisD : 
FOR k=1 TO Num ーーー 午 洲 8 サブ ルー チン 
COLOR Col 
PRINT Moji$ 
NEXT K 
RETURN 


人 徒 来 の サブ ルー チン は 引数 と いう 概念 を 持た な いた め 。 サブ ルー チン 内 で 使 
用 し て いる 変数 に メイ ン 側 で デー タ を 代入 し て か ら , サブ ルー チン コー ル す る 
と いう 類 雑 な 処理 に な っ て し まい ます . 

と ころ が , ブロ シー ジャ を 用 いれ ば 引数 を 用 いて 次 の よう に 簡単 に 。 し か も 
外用 的 に デー タ を 渡す こと が で きま す . 


Disp Hello Quick BASIC"。 2, 3 

アグ 引数 渡し 
SUB Disp (Moji$,。 Num. Col) 
=ーーー プ ブロ シー ジャ 


END SUB 


ブロ シー ジャ の 呼び 出し 時 に 書く 引数 は , プロ シー ジャ に 渡す 実際 の デー タ 
な の で 実 引数 ( じ つ ひ きす う ) と 呼び , 変数 , 定数 , 式 が 書け ます . 

これ に 対し , プロ シー ジャ の 定義 側 で 書く 引数 を 仮 引 数 (か り ひ きす う ) と 呼 
び ま す . 仮 引数 は デー タ を 受け 取る も の な の で 変数 し か 指定 で きま せん . 















罰 参 照 に よる 引数 渡し 


EIuzZa : 引 数 を 使っ て プロ シー ジャ 側 に デー タ を 渡す こと が で きる の は わか 
り ま し た が , 逆 に プロ シー ジャ 側 か ら 呼 び 出し 側 に デー タ を 返す こ 
と は で き な い の で すか . 

・QB の 引数 渡し は 参照 に よる 呼び 出し と いう 方 法 を と っ て いる た だ た め , 
それ が 可能 だ . 





いま まで の 説明 で は , 引数 は メイ ン ル ー チ ン か ら プ ロ シ ー ジ ャ へ 一 方 的 に 渡 
され て いる と 思わ れる か も し れ ま せん . 

し か し , Quick BASIC の 引数 渡し は 参照 に よる 呼び 出し (call by reference) 
と いう 方 法 を と っ て いる だ た だめ, ブロ シー ジャ 側 か ら メ イン ルー チン に 引数 を 介 
し て デー クタ を 上 す こと が で きま す 。 

参照 に よる 呼び 出し と いう の は 引数 の 実体 で は な く , 引数 の アド レス を プロ 
シー ジャ に 渡す と いう 方 法 で す が , あま り 原 理 的 な こと に 深入り する と わか ら 
な く な る の で , 結論 ご け を 覚え て お いて くだ さい . 

つま り , 仮 引数 は 実 引数 と 連動 し て いて , プロ シー ジャ 側 で 仮 引数 の 値 を 変 
えれ ば その 結果 は 実 引数 に も 影響 を 及ぼ し ます . 
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l 
/ 


Disp a$, n, 5 


SUB Disp (Moji$,。 Num, Col) 
Mojli$ や = "Turbo 
Numー 7 


END SUB 


プロ シー ジャ で 引数 Moji$。 Num の 値 を 変え て いま す が , これ は 同時 に メイ 
ン ル ー チ ン の 引数 A$,n の 値 を 変え て いる こと に な る の で す . し た が っ て プロ シ 
ー ジ ャ か ら 戻 っ た と き の a$, n の 値 は それ ぞ れ “Turbo"、。 7 に な っ て いま す . 

これ は , あたかも , Moji$,。 Num を 介し て メイ ン 側 の a$, n に 値 を 返し て いる 
よう な も の で す . 


配列 デー ダ を 渡す 
配列 デー タ の 全体 を プロ シー ジャ に 渡す に は , 引数 と し て 配列 名 の 後に 添字 

の な い ( ) を 付け た 「 配 列 名 ( )」 を 用 いま す . 
DIM a( 100) a(0) a(1) 引 a( 100) 
Calc a( ) 
UP を を 4 








(実際 は 配列 の 先頭 





Sub Caletb( )) て 「 レ ス ま た 拓 し て い お 5 ーー no 
1 I 


b(1)=10 

プロ シー ジャ 側 で は b(0) 一 b( 100) と いう 

本 名 前 を 使っ て メイ ン の a(0) 一 a(100) の テ 
ー タ を 参照 で きる . 


フロ シー ジャ 側 で は , b( 0 ) 一 b(100) と いう 配列 を 使っ て メイ ン 側 の a( 0 ) 
ーa(100) と いう 配列 を 操作 する こと が で きま す . また , プロ シー ジャ 側 で b 
(1 ) 三 10 な ど と する と , メイ ン 側 の a( 1 ) も 10 に 変わ り ま す . 

この よう に , メイ ン 側 の a( 0 ) 一 a(1000) と プロ シー ジャ 側 の D( 0 ) -b(100) は 
連動 し て いて , プロ シー ジャ 側 で b( 0 ) -b(100) を 変化 させ る と メイ ン 側 の a 
(0 ) 一 a(100) も 変化 し ます . この こと を 利用 し て , プロ シー ジャ 側 か ら メ イン 
側 に 配列 デー タ を 返す こと が で きま す . 





配列 全体 を 渡す 場合 , 本 当 は a( 0 ) -a(100) の 個々 の デー タ が プロ シー ジャ 
の b( 0 ) -b(100) に コピ ー さ れる わけ で は あり ませ ん . 配列 は メモ リ 上 に きち 
ん と 並ん で いる の で , 配列 の 置か れ て いる 先頭 アド レス だ け を 渡せ ば , 後 は そ 
の アド レス を 元 に 各 要 素 の デー タ を 参照 する こと が で きる の で す . プロ シー ジ 
| ャ の 引数 b( ) は , この 先頭 アド レス を 受け 取る 特別 な 変数 (C 言 語 で 言う ポイ 
ンタ 変数 ) な の で す . 
| したがって, b(0 ) -b(100) と いう 配列 は , 本 当 は 実体 の な いも の で , メイ ン 
の a( 0 ) -a(100) の 影武者 の よう な も の な の で す . 





ーー 配列 全体 を 渡す こと の 裏話 


それ で は , 一 次 元 配 列 の 各 要 素 を 指定 デー タ で 初期 化す る サブ ルー チン ・ プ 
ロ シ ー ジ ャ SetArray を 作っ て み ま し ょ う . 
これ で Rank( 0 ) 一 Rank (50) は 1 で 初期 化 さ れ ま す . 


DIM Rank (50) 
[ 義史 要素 の 数 (上 限 値 ) 

SetArray Rank( ), 50, 1 
し 5。。。 や や や 編 期 化す る 値 
SUB SetArray (a( ), Num. Dat) 

FOR K テ 0 TO Num 

a(k) =Dat 

NEXT k 

END SUB 


同様 に , 2 次 元 配列 の 各 要 素 を 指定 デー タ で 初期 化す る サブ ルー チン ・ プ ロ 
ンー ジャ SetArray 2 を 作っ て み ま し ょ う . 
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DIM Rank (10, 5) エーーーーーーー 配列 要素 の 数 (上 限 値 
SetArray2 Rank( ),。 10. 5,. 1 
ee 初期 化す る 値 
SUB SetArray 2 (a( ), Num 1 , Num 2 , Dat) 
FOR k=0 「O Num 1 
FOR 」 三 0 「O Num 2 
a(k. j) =Dat 
NEXT 」j 
NEXT _K 
END SUB 


思 ロー カル 備 数 








・ メ イン ルー チン と プロ シー ジャ で 同じ 名 前 の 変数 を 使う と どう な り 
ます が 
・ そ れ ら は まっ た だく 別 の も の と し て 扱わ れる か ら , 互い に 影響 を 及ぼ 
さ な い . 


この こと は プロ シー ジャ の 独立 性 ( 他 か ら 影 響 を 受け な い ) を 高め KC 








る ら 上 で 重要 な こと な の だ. 


従来 型 BASIC の 変数 は , メイ ン ル ー チ ン で も サブ ルー チン で も すべ べ て 共通 に 
使わ れ て いる た だ ため, 両者 で 同じ 変数 名 を 使う と 互い に 影響 し 合い , 思い も か け 
な い 結 果 を 引き 起こ し て し まう こと が よく あり ます . 

Quick BASIC で は プ ブログ ラム 中 の 変数 を , 次 の 3 つの クラ ス に 分 け て 使用 す 
る こと が で きま す 。 


・ 大 域 的 (global) 変数 . 共通 変数 と も 言う 
・ 局 所 的 (local) 変数 . 
・ 引 数 


大 域 的 変数 は プロ グラ ム の 全域 で 共通 に 使用 きれ る も の , 局所 的 変数 は それ 
が 置か れ て いる プロ シー ジャ 内 で の み 使 用 きれ る も の , 引数 は プロ シー ジャ と 
プロ シー ジャ 間 の デー タ 受 け 渡 し に 使用 され る も の で す . 従来 型 BASIC の 変数 
は すべ て 大 域 的 変数 (共通 変数 ) で し た . 











Quick BASIC の 変数 は ディ フォ ルト で 局所 的 変数 と し て 使用 され ます . 大 域 
的 変数 と し て 使用 する に は COMMON SHARED 文 を 用 いて 宣言 し ま 9 。 詳し 
く は 第 8 章 の 第 7 節 (P.218) を 参照 し て くだ さい . 


大 域 的 変数 。 
局所 的 変数 








局所 的 変数 は 各 プ ロ シ ー ジ ャ に 固有 の も の で すか ら , 同じ 名 前 の 変数 を 使っ 

て も , プロ シー ジャ が 異な れ ば 異な る 変数 と し て 扱わ れ ま す . し か し , 従来 弄 
の サフ ブルー チ ン は プロ シー ジャ で は あり ませ ん の で , ここ で 使わ れ て ぃ いる 変数 
は サブ ルー チン が 属す る プロ シー ジャ の 変数 と し て 扱わ れ ま す . 


FOR k=1 TO 10 







従来 型 サ ブル ー チ ン は プロ シー ジャ 
で は な い の で 。 変数 は メイ ン と 同じ 
扱い に な る . し た が っ て メイ ン と サ 
フ の k は 同じ 変数 と し て 扱わ れる . 
この た め , GOSUB ABC に より サブ プ ブル 


GOSUB ABC 


Disp Hello ", 2. 3 





PE ー チ ン に 入る と 同じ k の 2 重 ル ー フ 
NEXT k 
に 入っ て し まい , 結 素 は 保証 され な い . 
か 
| 
| ABC [ 
| ' を 
“ FOR k=1 TO N 「 キ ーーーーー 従来 型 サ ブル ー チ ン 
| ・ | 
] NEXT k ' 
[ RETURN “ 
2 dj 
ョ ーーーー プロ シー ジャ 
SUB Disp(Moj 各 , Num, Col) 
FOR k 三 1 TO Num 
ーーー この 'k は メイ ンジ の k と は 箋 な る も の 
NEXTK と し て 扱わ れる . し た が っ て k と い 
END SUB う 同 じ 名 前 の 変数 に よる 2 重 ル ー フ 


で も 互い に 影響 し 合う こと は な い . 
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則 文 章 変換 プロ グラ ム 





EIUZa : プ ブ プロシージャ と いう の は いろ いろ 新しい 考え 方 を 持っ て いる ん で す 
ね . 

2 と 二 ・ QB で 構造 化 プ ログ ラミ ング を や る ん だ っ た だ たら, この よう な こと を き 
ちん と 覚え て お いて ほし い . と 思う . 
説明 が 長く 続い た か ら , この 辺 で プロ シー ジャ の 例題 を 1 つや っ て 
よう 。 


Text$ に 格納 され て いる 文字 列 の 中 か ら Key$ で 示さ れる 文字 列 を 探し , すべ 
て Rep$ で 示さ れる 文字 列 に 置き 換え る サブ ルー チン ・ プ プロシージャ Replace 
(Text$。 Key$, Rep$) を 作り ます . 


[| Lp= ニ KINSTR( Text$, Key$ ) 


ー Rp=Lp+KLEN(Key$) 





対応 な の で | 日 本 馬 


ま 


N ニ KLEN( Text$) 一 Rp 十 1 








KMID$( Text$, Rp, N) 


日 本 語文 字 の 処理 を 行う た め KINSTR, KLEN, KMID$ と いう 日 本 語 対 応 の 
文字 列 処理 関数 を 使用 し て いま す . これ ら の 関数 は , 日 本 語文 字 を 1 文字 と 数 
ます 。 


KINSTH 関 数 








字 列 を 探し , その 位置 を 返し ます . 引き 続き Text$ の 次 の 文字 列 を 探す に は , 
KINSTR (Rp, Text$。 Key$) と し ます . ここ で Rp は 文字 列 の サー チ を 開始 
する 位置 で す . Rp を 省略 する と 1 番目 か ら サ ー チ が 行わ れん ます. 

KINSTR は , 指定 し た キー 文字 列 が 見 つか ら な けれ ば 0 を 返し ます . 

















KINSTR (Text$,。 Key$) と する こと で , Text$ の 中 か ら Key$ で 示さ れる 文 





ーー-/* 功 き 換え (リプ レイ ス ) */--- 


DECLARE SUB Replace (Text$。 Key$,。 Rep$)=。 ーー プロ シー ジャ の 宣言 


M 


に じ にし 
READ TexXt$ 
WHILE Text$ <> “"/" 
Replace Text$。 "サル ピア "。 "か すみ 草 "< プロ シー ジャ の 呼び 出し 


Replace Text$,。 " 紅 "。" 白 " 

PRINT Text$ 

READ Text$ 
wEND 
DATA " --- サル ビア の 花 --- 
DATA "いつ も いつ も る も る 思 つて た " 
DATA "サル ビア の 花 を あな た の 部 屋 の 中 に 
DATA "投げ 入れ た く て" 
DATA "そし て 君 の ベッ ド に " 
DATA "サル ビア の 紅い 花 し きつ め て " “ 
DATA 全 人 は 才 を 先 ぬ まで 拍 才 し め て いよ うと < 
DATA 由 下 L 


SUB Replace (Text$。 Key$,。 Rep$) 
LD = KINSTR(Text$。 AEFRN あ ms 一 文字 の 位置 を Lp に 求め る 
WHILE Lp <> 0 ナ ぃ / ナ て 明 
RD = Lp eKLENCKey$) キー 文字 が 見 つか ら な く な る まで くり 返す 
N = KLEN(Text$) - Rp + 1 
TeXt$ = KMID$(Text$。 1。 Lp - 1) + Rep$ + KMID$S(Text$。 Rp。 N) 
Lp = KINSTR(Rp, Text$, Key$)<___ ん の キー 文字 を 探す 
WEND 
END SUB 





多 叶 で ご 式 叶い 
の みっ か こい 。 
の 民 


か す 
も 思 
人 共 を 
4 
べ ー ツ 
日 い 
ぬ ま 


3 誠 克 \ い 人 ぷ 
で 語 


ンー 
の 
た 
の 
の 
死 


境 き 店 沙 ン 
W 側 可 さ 僅 
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や 


明 関数 プロ シー ジャ 


// 





宙 生 ・ もう 1 つの プロ シー ジャ で ある 関数 プロ シー ジャ を 説明 し よう . 

EIUZa : サ ブル ー チ ン ・ プ プロシージャ と 何 が 違う の で すか . 

て 二 ・ 基 本 的 な 違い は , 関数 プロ シー ジャ は 戻り 値 を 持つ の に 対し , サブ 
ルー チン ・ プ プロシージャ は 戻り 値 を 持た な いと いう こと が だ. 

EIUZa : 戻 り 値 と いう の は 何で すか . 

2 し 士 ・ サ イン の 値 を 求め る の に Y=SIN(X※) な ど と する ね . これ は サイ ン 

を 計算 する ルー チン で X の サイ ン の 値 を 求め その 結果 を SIN(X) 

に 返し て いる と 考え られ る . この 返さ れ た 値 を 戻り 値 と いい , 関数 

SIN(X) は 戻り 値 を 持つ と いう . 





関数 プロ シー ジャ は FUNCTIONーEND FUNCTION で 定義 し ます . まず は 
簡単 な 関数 プロ シー ジャ の 例 を 見 て み ま し ょ う . 次 に 示す 関数 プロ シー ジャ 
Sum は , 配列 a4( ) の デー タ の 合計 を 求め る も の で す . 





DECLARE FUNCTION Sum (a(), Num) = 一 W 


DIM Ten (50) 





Heikin= ニ Sum(Ten( ), 50) グ 50 


2 
FUNCTION Sum (a( ), Num) ペーーーーーーーーーー (3 
s 三 0 
FOR k ニ 1 IO Num 
s 三 S 十 a (k) 
NEXT k 
Summ 三 S 


END FUNCTION 


① 関 数 プロ シー ジャ の 写 言 
メイ ン ル ー チ ン に お いて プロ シー ジャ の 呼び 出し を 可能 と する た め に , プ 

ロ シ ー ジ ャ の 名 前 と 引数 を 宣言 し ます . 
な お , この DECLARE 文 を も し プ ブログ ラマ が 記述 し な けれ ば , ブロ グラ ム 





グ 








を セー ブ し だ た と き に QB の エディ タ が プロ シー ジャ の 定義 部 を 参照 し て 自動 
的 に 生成 し ます . 


② プ ロ シ ー ジ ャ の 呼び 出し 
関数 プロ シー ジャ の 呼び 出し は 「 関 数 プロ シー ジャ 名 (引数 , …)」 で 行い 
ます . 関数 プロ シー ジャ の 呼び 出し は 単独 の 文 で は な く , 式 の 中 の 一 部 と し 
て 記述 し ます . SIN( ), COS( ) な どの 関数 の 扱い と 同じ で す . 


③ 関 数 プロ シー ジャ の 定義 
関数 プロ シー ジャ の 定義 は , FUNCTION と END FUNCTION の 間 に し ま 
す . FUNCTION の 後に 関数 プロ シー ジャ 名 を 書き , その 後に デー タ を 受け と 
る 引数 を カン マ (,) で 区 切っ て 書き ます . 
関数 プロ シー ジャ は 値 を 呼び 出し 元 に 返す た め , 必ず 1 度 , 


関数 プロ シー ジャ 名 =[ | 


と いう 代入 文 を 行わ な けれ ば な り ま せん . この [| の 値 が , 関数 プロ シー ジャ 
の 値 (戻り 値 ) と し て 呼び 出し 元 に 返さ れ ま す . 


/ーーーー デ ー デ コー ル ー ー 
ーーーー 一 四 FUNCTION Sum(a( ),Num) 








Sum(Ten( ), 50) 
SumーS 


値 を 返す END FUNCTION 


ーー-/* 合計 を 求め る */--- 
DECLARE FUNCTION Sum (a()。 Num) 


DIM Ten(50) 
DATA 50.30.40.55.65.35.56,66,77,85 


FOR k = 1 TO 10 
READ Ten(k) 
NEXT k 


PRINT "合計 =": Sum(Ten() 。 10) 


ae Ten( ) の 10 個 の デー タ 合 計 が 求め られ る 


END 


FUNCTION Sum (a()。 Num) 
S = 0O 
FOR k = 1 TO Num 

8 = S + 8&(K) 

NEXT k 

SUm = 8 ーーーーーーーー の 値 が 関数 の 値 ( 戻 り 値 ) に な る 
END FUNCTION 
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サブ ルー チン ・ ブ プロシージャ と 関数 プロ シー ジャ の 違い を 以下 の 表 に まとめ 
まし た . この 点 以 外 は サブ ルー チン ・ プ ロ シ ー ジ ャ も 関数 プロ シー ジャ も まっ 
だ た く 同 じ で す . 


表 7-1 サブ プ ブルー チン ・ プ ロ シ ー ジ ャ と 関数 プロ シー ジャ の 違い 


向く こさ 






関数 プロ シー ジャ 


式 の 中 の 一 部 と し て 行う . 
| 実 引数 は ( ) で 囲む . 














1 つの 文 と し て 行う 。 
実 引数 は ( ) で 囲ま な い . 















Disp "Hello", 5, 3 Heikin Sum(a( ), 10)/10 





サブ ルー チン ・ プ ロ シ ー ジ ャ 自体 は 値 を | 関数 プロ シー ジャ 自体 が 値 を 持つ . これ 
持た な い . | を 戻り 値 と いう . つま り Sum(a( ), 10) 
が 合計 の 結果 の 値 を 持っ て いる と 考え ら 
れる . 


虹 戻 り 値 を 持つ ここ の 意義 


EIUZa : サ ブ プルー チン ・ プ ブロ シー ジャ と 関数 プロ シー ジャ は どの よう に 使い 
分 けた ら よ いで すか 、. 

先生 。 : あ る 処理 を プロ シー ジャ に 行わ せ , 引数 を 介し て デー タ を 呼び 出し 
側 に 戻せ る と いう 点 で は 両者 は まっ た くく 同じ だ . 関数 プロ シー ジャ 
は 関数 の 値 と し て の 戻り 値 を 持つ か ら , その 戻り 値 を 元 に 条件 判断 

を させ る よう な 場合 は 関数 プロ シー ジャ が 効果 的 だ ね . 







関数 プロ シー ジャ が 戻り 値 を 持つ こと の 意義 を , 次 の 例 で 示す こと に し ます . 


INPUT ga 

WHILE a く >ー9999 
Sum 三 Sum 十 a 
INPUT ga 

WEND 


この よう な WHILE 型 の ルー プ で は , ルー プ の 前 と ルー プ の 後部 の 2 箇所 で 


INPUT] 文 を 置か な けれ ば な ら な いこ と は 前 に も 述べ まし た . 
と ころ の が 、 


FUNCTION Dinput (x) 
INPUT x 
IF x テ ー9999 THEN 
Dinput= ー 1 =ーー- デー タ の 終わ り の 印 
ELSE 
Dinput= 1 
END IF 
END FUNCTION 


こい う デ ー タ 入力 関数 Dinput を 作っ て お け ば , 先 の デー タ 入 力 の ルー プ は 。 


WHILE Dinput (a) く >ー 1 
SUmーSum 十 a 
WEND 


と 大 変 ス マー ト に 記述 で きま す . これ は Dinput が 戻り 値 を 持つ た め .。 これ を 
WHILE の 条件 式 の 中 に 入れ る こと で 終了 条件 を 判定 で きる か ら で す . 


% デー タク 入力 を 行う 関数 プロ シー ジャ 


ーー/ キ デー タ 入 力 較 数 */--- 
DECLARE FUNCTION Dinput! (XX!) 
SU = 0O 


wHILE Dinput(a) <> -1 
Sum = SuUm + 8a 





wEND “ ーDinput( ) は 関数 な の で 
PRINT "合計 =": Sum WHILE の 式 の 中 に 含め る こと が で きる 
END 


FUNCTION Dinput (XX) 
INPUT "data ": 双 
IF X = -9999 THEN 
Dinput = -1 ′ デー タ の 終わ り 
ELSE 
Dinput 
END IF 
END FUNCTION 


1 
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第 6 草 で 作っ た 占い を する サブ ルー チン URANAI を , 関数 プロ シー ジャ で 作 


りな さい . 
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「 ーー--/* 相性 占い (プロ シー ジャ 版 ) 
DECLARE FUNCTION Uranai (a$。 b$) 


READ a$。 b$ 


DO wHILE a$ <> "/" 


PRINT a$i " と "j b$: " の 相性 度 =":[ 


PRINT 


LOOP 
DATA "taro"。 "hanako" 
DATA "ichirou"。 "mariko" 
DATA "jirou リ 。 "yuko" 
DATA が 
END 






SuUn = 0 


FOR K = 


SUm : 


NEXT k 

FOR K = 
SUm 

NEXT Kk 


END FUNCTION 





TO LEN(a$) 
SUm + ASC(MID$S(a$。 k, 


TO LEN(b$) 
Sum + ASC(MID$S(b$。 k, 


あさ 


1 ) ) 


1 ) ) 








4 OB の 寺 力 な デー? 弄 


て 二 ・ 整 数 型 。 実数 型 。 文字 型 な どの 基本 デー タ 型 に つい て は すでに 説明 
し 0。 

EIUZ : 配 列 と いう の も や り ま し た ね . 

生 ・ 配 列 は 基本 デー タ 型 を 元 に し た 少し 複雑 な デー タ 型 だ .QB で は これ 
ら の 他 に 新しい デー タ 型 が 追加 され て いる " 

EIUZa : デー タ 型 と いう の は 大 事 な こ と な の で すか . 

2C 士 ・ 構造 化 プロ グラ ミン グ を 行う 場合 は , 扱う デー タ の デー タ 構 造 を き 

ちん と し な いと よい ブロ グラ ム は 書け な い の だ . 













(Quick BASIC で は 次 の よう な 点 で デー タ 型 が 改良 され , 強力 に な り ま し 
7 


・ 記 号 定数 の サポ ー ト 

・ 固 定 長文 字 列 の サポ ー ト 

・ 配 列 の 部 分 範囲 指定 の サポ ー ト 
・ レ コー ド 型 の サポ ー ト 


昌 記号 定数 


Quick BASIC じ で は CONST 文 に より 記号 定数 を 宣言 する こと が で きま す . 計 
号 定数 と は , 定数 に 名 前 を 割り 当て その 名 前 を 定数 と し て 扱え る よう に し た も 
の で す . 

7 の は 。 





CONST Seito=40 
FOR k=1 TO Seito 
FOR 」=1 TO Seito 
と いう プロ グラ ム を 考え て み ま し ょ う . Seito が 記号 定数 で , そ の 値 は 40 に 定義 


され て いま す . つま り , FOR 文 の と ころ に 使わ れ て いる Seito は 40 と し て 扱わ れ 
ます . 
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記 写 定数 は 定数 な の で , 次 の よう に 代入 を 行う こと は で きま せん . 
Seito 三 1 


し た が っ て , 誤っ て 記号 定数 の 値 を 変更 し て し まう 危険 が な いわ け で す . 記 
な 定数 を 用 い ず に 変数 で 行っ た 場合 は , その 値 を 誤っ て 変更 し て し まう 危険 性 
を 持っ て いま す . 

また , 記号 定数 を 用 いる こと に より , プロ グラ ム 中 に 特定 の 値 を 埋め 込ま ず 
に 済み ます . つま り , 


FOR k 三 1 TO 40 


FOR ] 三 1 TO 40 


の よう に 特定 の 値 を プロ グラ ム の あちこち に 埋め 込ん で お く と , も し この 値 
(40) を 変更 する 必要 が 生じ た 場合 に すべ て を て いね い に 探 し 出し , 変更 し な け 
れ ば な り ま せん . 

これ が CONST Seito 三 40 と 記号 定数 で 定義 され て いれ ば , この 部 分 を 変更 
する だ け で 済む わけ で す . 


l 固定 長文 字 列 


ーーーーーーーーーーーーーーーーーーーーーー 
ク 士 ・ BASIC の 文字 列 は 可変 長文 字 列 な の で , 文字 列 変数 に 入れ る 文字 列 
の 長 さ は 自由 自在 だ っ た . 
EIUZd : だ た と えば a$5=“Hello' な ら a$ は 5 文字 の 文字 列 と し て 扱わ れ , a$= 
"abc_ な ら a$ は 3 文字 の 文字 列 と し て 扱わ れる と いう こと で すね . 


宙 生 ・QB で は この よう な 可変 長文 字 列 の 他 に , 固定 長文 字 列 を サポ ー ト し 


て いる . 


FIUZ : 固定 長文 字 列 は どん な と き 使 う の で すか . 
し 士 ・ 後 述 す る レコ ー ド 型 の メン バ に 文字 列 を 指定 する 場合 に 使う . 


ーーーーーーーーーーー ニ ー 
ーーーーーーーー デ ーーーーー、 ーーーーーー ーー 一 一 ーーーーーーーーーーーーーーー ヤ ーー ーーーーーーーーー 一 


ーーーーーーーーーーーーーー ーーーー ーーーーーーーーー ーー ーー ーー ーーーーーーーー… ーー 


ai 


固定 長文 字 列 の 定 言 は , 型 指定 子 STRING を 用 いて 次 の よう に 行い ます . 
DIM 変数 名 AS STRING* 長 さ 
記 克 (は 。 
DIM a AS STRING * 10 
と 宣言 する と , 変数 a は 10 文 字 の 文字 を 入れ る 固定 長文 字 列 変数 と な り ま す . 
a 三 Test' 


と する と , 文字 は 次 の よう に 左 づ めで 格納 され , 残っ た 右 は 空白 で 埋め られ ま 
す . 





借 議 識 還 ノノ ン ノン ン ン ン 
| T「 [ルレ 
ーーー ニー 
し だ が っ 。 
IF a 三 Test THEN 
と し て も , この 条件 は 一 致し ませ ん . これ は 。 
IF a 三 "Test、。 。 。 。 。 丁 有 EN 


と し な けれ ば な り ま せん . 
後述 する レコ ー ド 型 の メン バ に は 可変 長文 字 列 を 指定 で きま せん の で , この 
固定 長文 字 列 を 指定 し ます . 





EIUZ : 固 定 長 文字 列 変 数 に 対し , 指定 され た 長 さ より 長い 文字 列 を 代入 す 
る と どう な り ま すか 、 
・ 残 っ た 部 分 は 捨て られ て し まう よ . 
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昌 配列 の 部 分 男 囲 指定 


BASIC の 配列 の 添字 の 最小 値 (基底 ) は 0 か ら 始 まり まし た . OPTION 
BASE 文 を 使え ば 基底 を 1 から 始 め る こと が で きま す が , その 程度 し か 変え る 
こと は で きま せん . 「 

Quick BASIC で は 配列 の 添字 に 部 分 男 囲 を 指定 する こと が で きる よう に な 
り ま し た . 配列 の 部 分 男 囲 指定 は , 配列 の 宣言 時 に TO を 使っ て 次 の よう に 行い 
ます 。 


DIM 配列 名 (最小 値 TO 最大 値 ) 
だ どい ぽ 
DIM a(5 TO 10) 
と する と a(5) 一 a(10) の 配列 が , 
DIM a(-10 TO 5) 


と する と a( 一 10) 一 a(5) の 配列 が 定 言 され ます . この よう に 部 分 範囲 指定 で 
は , 負 の 要素 も 指定 で きる よう に な り ま す . 

ご 次 元 配 列 以上 の 配列 も , それ ぞ れ の 要素 に つい て 部 分 範囲 を 指定 する こと 
が で きま す . 


DIM a( 一 2 TO 2, 一 1 TO 1) 


この 配列 は 。 次 の よう な も の で す . 





関数 の グラ フ を テキ スト 画面 に 描く と き は , 次 の よう な xー サ 座標 を イメ ー 
ジ し た 二 次 元 配列 を 使う と 便利 で す . 


| 
C う 
〇 の 

C) 





Canvas(y,r) 三 " 率 " 


この Convas(Yy,。 x) の 中 に . 


ェ ーー ー360^360 の 変化 に する た め . 
y ニ 3 *※COS(x*※10*Rd) 十 5 *※SIN( 3 *x*※10* ネ Rd) 


で 表 さ れる グラ フ の 各 点 (x を 一 36-36 ま で 変化 させ た と き ) を プロ ッ ト し ます 





ーーー-/* 配列 の 部 分 範囲 指定 */--- 
DIM Canvas(-10 TO 10, -36 TO 36) AS STRING * 1 








CONST Rd = 3.14159 / 180 N_ 1 つの 要素 を 1 女 字 と する 
| _ FOR y = -10 TO 10 固定 長文 字 列 と し て 宣言 する 
FOR XX = -36 TO 36 
| IF XX = 0O THEN 
| CA&NV&S(Y。 X) = “19 こ 
| ELSEIF y = 0 THEN Canvas( , ) の 初期 化 
| | CaAnVaS(Y。 XX) = "ーー リツ " 
| ELSE 
CaAnVaS(Y。 X) = "9" 
END IF 
NEXT XX 
NEXT y 
FOR X = -36 TO 36 
Y = 3 * COS(X * 10 * Rd) + 5 * SIN(3 * x * 10 =* Rd) 
IF (-10 <= y AND = 10) THEN Canvas(y,。 X) = "まげ 。 いい %y) 位 置 に 
NEXT xx 」 アー Yo ER - 率 を 代 
y の 値 が 添字 の 範囲 を 越え て いな いか の 判定 に 
CLS 


FOR y = -10 TO 10 
FOR x = -36 TO 36 
PRINT Canvas(y。 X)・ 
NEXT XX 
PRINT 
NEXT y 
END 


|。 し anVast , ) の 内 容 を 
上 か ら 表示 
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! 
! 
玉 | 
玉 ! 本 
! 
率 率 還 ! し す 1 
卒 謗 E | 幸 。 謗 
※ ! 事 
本 キキ 1 素 事 本 本 本 
事 束 率 率 ! 事 事 
ーーーーーーーーーーーーーーーーー キ ーーーーーーーーー ニ ーーーーーーー ー]ーーーーーーーーーーー ニ ーーーーー キーーーーーーーーーーーーーーー ーー 謙一 
素 率 座 謗 | 半 吉 
主 杯 証 ! 率 本 本 本 信 
※ 記 癌 
ボ 率 。 李 1| 才 。 李 
吾 率 1 率 加 宮 
| 
率 率 ] 夫 率 
回 【I 率 
! 
! 





・ レ コー ド 型 と いう の は まっ た だ た く 新 し い 型 で すね . 

・ レ コー ド 型 は Pascal や C に は あっ だ が BASIC に は な か っ た 型 だ . 
QB で は この レコ ー ド 型 を サポ ー ト し て いる か ら , デー タ 構 造 を Pas- 
cal や C 並 に 明確 に 表現 で きる よう に な る よ . 








レコード 型 と は 
下 表 の デー タ は , Galileo (ガリ レオ ) が 1610 年 に 発見 し た 木星 の 4 大 衛星 の 
衛星 名 , 光度 , 周期 に 関す る も の で す . 


表 /- 2 木星 の 4 つの 衛星 


光度 [等 ] | 周期 [日 ] | 
| 1.7691 | 


| es | 
Ganymede ーー 5 | 7.1545 | 


Calisto 。 | 6 | 16. 5830 |] 件 の レコ ー ド と し て 扱う 





こう し た デー タ は , 衛星 名 , 光度 , 周期 を ひと か た まり の デー タ と し て 扱え 
だ た ら 便 利 で す . この よう に いく つか の 項目 を ひと か た まり に し た も の を レコ ー 
ド と 呼び , 各 項 目 を メン バ (フィ ー ル ド ) と 呼び ます . レコ ー ド 型 は この よう 
な デー タ を 定義 むる の に 便利 で す . 
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レコ ー ド 型 の 定義 
さて , 先 の 表 の よう な デー タ を 扱う レコ ー ド 型 を 定義 むす る に は 次 の よう に し 
ます . 
TyPE Ei メン バ の 弄 
Star AS SIRKING ※ ネ 10 
Kodo 。 AS INTEGER 
Shuki AS SINGLE 
END | TYPE 
ーー ジイ 
これ に より , Eisei 型 と いう 新しい 型 が 定義 され た こと に な り ま す . この よう 
に ユー ザ が 定義 する 型 を ユー ザ 定 義 型 と いい ます . 
Eisean を タグ , Star,Kodo, Shuki を メン バ と 呼び ます . タグ は 変数 を 宣言 す 
る た め の 人 金 型 の よう な 働き を し ます . 


この 新しい 金 型 を 用 いて 
変数 を 宣言 する 






EiSel 


Star 


Kodo 。 Shuki 
s き タグ 


hisei 型 の 変数 を 宣言 する に は , この タグ を 用 いて 。 
DIM a AS Eisei 


と し ます . これ で Eisei 型 の 変数 a が 宣言 され まし た . DIM は 配列 の 宣言 ば か り 
で な く , この よう に レコ ー ド 型 変数 を 宣言 する と き に も 使い ます . 
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ング 


Il 
/// 





各 メ ン バ を 指定 する 型 は , 次 の と お り で す . 
INTEGER 整数 
LONG 倍 長 整数 
SINGLE 単 精度 実数 
DOUBLE 倍 精度 実数 
STRING 文字 列 (固定 長 ) 


を メンバ の 参照 
レコ ー ド 型 変数 の 答 メ ン バ を 参照 する に は ピリ オド (.) を 用 いて ., 


レコ ー ド 型 変 数 名 . メン バ 名 


と し ます . た と えば, 衛星 Io( イ オ ) の デー タ を レコ ー ド 型 変数 に 代入 する に 
は , 次 の よう に し ます . 


a.Star 三 "lo' 
a.Kodo 三 4 
a.Shuki = 1 . 7691 


レコ ー ド 型 デ ー タ は ひと か た まり に し て 代入 で きま すす ので, DIM b AS 
Eisei と 宣言 され て いる レコ ー ド 型 変数 b に 対し , 


ba 


と する こと で a の 内 容 は 一 括 b に 代入 きれ ます . 


條 レコード 型 配列 
レコ ー ド 型 の 配列 も 認め られ て いま す . 先 の タグ Eisei を 用 いて . 


DIM b (10) AS Eisei 


と する と , Eisei 型 の 配列 b( 0 )。 b( 1 ) …… b(10) が 用 意 さ れ , 各 要 素 へ の 参 
有 照 は 次 の よう に 行い ます . 


b( 0 ).Star= “lo" 

b( 0 ).Kodo= 4 

b( 0 ).Shuki= 1.7691 
b( 1 ) .Star = “Europa" 


田 3 サイ ズ ・ デ ー ツ の ソー ト 

次 の よう な 6 人 の 女の子 の 3 サイ ズ ・ デ ー タ が あっ た と し ます . 1 人 の デー 
(名前, バス ト , ウエ スト , ヒッ プ ) を レコ ー ド と し , レコ ー ド 型 配列 Girl() 
に リー ド し ます . 

そし て , この デー タ の バス ト を キー に し て 大 きい 順に 並べ 換え て み ま し ょ う . 


表 7-3 3 サイ ズ デ ー タ 





Candy 
Ann 
Eluza 


Nancy 


Nina 
Machilda 
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の キト ご ゆな ンー 


TYPE ThreeSize 
Namae AS STRING * 10 


bust AS INTEGER レコ ー ド 下 Three Size の 定義 


Waisgt AS INTEGER 
Hip AS INTEGER 
END TYPFE 


DIM Girl(50〉) AS ThreeSize コーーー レ コー ド 型 配列 Girl( ) の 定 


CONST Num = 6 ゴーーーーー 記号 定数 Num を 6 に 定義 
FOR KK = 1 TO Num 


READ Girl(k).Namae。 Girl(k).bust。 Girl(K).Waist, 


NEXT k 


FOR k = 1 TO Num - 1 
MaX = Girl(k).bust 
8 = K 
FOR j] = K + 1 TO Num 
IF Girl(j).bust > MaX THEN 
MaX = Girl(j).bust 


S = ]j 
END IF 
NEX] j 
SWAP GiriI(k)。 Girl(s) ーー レコ ー ト デー タ の 
NEXT Kk 一 括 交 換 


CLS 
FOR K = 1 TO Num 
PRINT USING ""### 人 8 875 KK) の: 


PRINI Girl(KkK).Namae: Girl(K).busti Girl(K).Waist: 


NEX1 K 


DATA "Candy"'.80.60.80。"Ann".75.60.78 
DATA "Eluza".81.65.83。"Nancy"。81.63。77 
DATA "Nina".。76.58.78。 "Machilda"。83.65。81 
END 


Machilda 
Eluza 
Nancy 
Candy 
Nina 

Ann 


1 
2 
3 
4 
5 
6 





| 


デー タ を 配列 に 
Girl(k).Hip ) た ー マ 


- バ スト の 大 きい 品 に ソー ト 





Girl(K).Hip 


ーー ソー ト の 話 ーー 
デー タ を 小さ い 順 と か 大 きい 順 . まだ は アル ファ ベッ ト 順 な ど に 並べ 換え る 


』 こ と を ソー ト と 呼び ます . ソー ト の 方 法 は いく つか あぁ り ます が ,。 ここ で は 直接 
選択 法 と いう いち ば ん わか りや すい 方 法 を 紹介 し ます . 


炊 の よう な 5 つの デー タ が 配列 A(1)-A(5) に 格納 され て いる も の と し ます . 


と EE EP2 い シク 











この デー タ を 小さ い 順 に ソー ト す る 方 法 を 以下 に 示し ます . 


まず 1 番目 の 要素 を 基準 に し て , それ より 右側 
の 中 か ら 最 小 の デー タ ( こ の 例 で は 35) を 捜し , 
その 最小 デー タ と 1 番目 の 要素 を 交換 する 


2 番目 の 要素 を 基準 に し て 上 と 同様 な 処理 を 行う 


以下 同様 の 処理 を 行う 





これ を ブロ グラ ム に する と 次 の よう に な り ま す . 


FOR K=1 TO 4 
MIN =A(K) : S=K ューーー【 番 目 を 最小 の 初期 値 と する 


FOR L=K 二 1 TO 5 最小 デー タ を 
IF A(L) く MIN THEN MIN=A(L) : S= ニ L で 才 - 間 
NEXT L | する 
SWAP A(K), A(S) ユー K 項 と S 項 の 交 近 
NEXT K 
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基準 項 を ルー プ 変 数 K で 管理 し , K 番 目 以後 の 要素 か ら 最小 デー タ を 探す た 
め の ル ー プ 変数 を し で 管理 し ます . 
| KK 番 日 以 後 か ら 最小 デー タ を 探す に は , まず KK 番 日 の デー タ を 最小 値 と し て 
| 初期 設定 (MIN = A(K)) し , K 1 番目 以後 の 中 か ら 巡 次 デー タ を MIN と 比 


グ 


較 し な が ら , より 小さ い デ ー タ が きた ら MIN を 更新 し ます (IF A(L)<MIN | 
THEN MIN=A(L) : S=L). な お , S は 最小 デー タ の 要素 番号 を 記憶 し て お | 


くだ た め の 変 数 で す . 


| KK 番 日 以後 の 最小 デー タ の 位置 が S に 求め られ る の で , K 番 と S 番 の 要素 を 
| 交換 (SWAP A(K), A(S) ) し ます . SWAP 文 は 2 つの 変数 の 内 容 を 交換 する 


命令 で す . 


練習 問題 10 
3 サイ ズ ・ デ ー タ を 名 前 を キー に し て アル ファ ベッ ト 順 に ソー ト し な さい . 


「"---/* 3 サイ ズ デ ー タ の ソー ト */--- 


TYPE ThreeSize 
Namae AS STRING * 10 
bust AS INTEGER 
Waist AS INTEGER 
Hi p AS INTEGER 

END TYPE 


DIM Girl(50) AS ThreeSize 
CONST Num = 6 


FOR KkK = 1 TO Num 
READ Girl(kK).Namae,。 Girl(k).bust。 Girl(k).Waist, Girl(k).Hip 
NEXT Kk 


FOR K = 1 TO Num - 1 


を KK 
R j = KK + 1 TO Num 
Ei 

8 = j 

END IF 

NEXT j 

SWAP Girl(kK)。 Gir1l(s) 

NEXT K 
に LLS る 


FOR K = 1 TO Num 
PRINT USING "###&8 8" > Ki "< の ・ 


PRINT Gir1l(k) .Namae: Gir1(k) . .bust: Girl(k).waisti: Girl(k).Hip 
NEXI KK 


DATA "Candy"。80.60.80。"Ann"。75。60.78 
DATA "Eluza",81.65.83。"Nancy"。81。63。77 
DATA "Nina"。76.58.78。"Machilda"。83.65。81 
END 


0。 再帰 的 ノロ ツー ジ ヤ 


て 士 ・ QB で は 再帰 的 プロ シー ジャ を 定義 むす る こと が で きる . 再帰 的 プロ シ 
ー ジ ャ と は , プロ シー ジャ の 中 か ら 自 分 自身 を 呼び だ す 構 造 の プロ 
ジー ジャ な の だ . 

EIUZa : 再帰 的 プロ シー ジャ は 何 に 使う の で すか .。 

先生 。 : アル プリ ズム を 作る 上 で , 再帰 的 な 方 法 を 用 いる と 明快 に 表現 で き 
る も の が ある . ちょ っ と 難し い デ ー タ 構造 と し て 木 構造 と いう も の 
が ある が , これ を 表現 する の に 再帰 は ぴっ た りな ん だ . 

EIuZa : 木 構造 な ん て いう 難し いこ と も 勉強 し な く て は いけ な い の で すか . 

先生  : 当 面 は 必要 な いか ら , ここ で は 別 の も っ と 簡単 な 例 を 用 いて 再帰 に 

つい て 説明 する つも り だ . 

な お , 第 8 章 で リカ ー シ ブ ・ グ ラフ ィ ッ クス と いう 再帰 を 用 いた 例 

を 紹介 し て ある か ら , 参考 に する と よい よ . 








唱 階 乗 を 再帰 で 記述 する と 
n の 階 乗 は n ! と 表し , この 値 は n・(mー1)・(mー 2) …2・1 と な り ま 
す . これ を 再帰 的 に 定義 むす る と, 


nl =n・(nー| ) ! 
0!=I 





再帰 的 定義 
再帰 的 呼び 出し か ら の 脱出 口 





と な り ま す . この 定義 の 意味 は 次 の よう に 解釈 し て くだ さい . 


n! を 求め る に は まず (nー1 ) ! を 求め 。 それ に n を か ける . 
(n ロ ー 1 ) ! を 求め る に は (n- 2 ) ! を 求め ,。 それ に (nー 1 ) を か ける . 


1 ! を 求め る に は 0 ! を 求め ,。 それ に 1 を か ける . 
0 ! は 1 で ある . 
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それ で は 階 乗 を 求め る 関数 プロ シー ジャ Kaijo (n) を , 再帰 的 プロ シー ジャ 
で 書い て み ま し ょ う . 


FUNCTION Kaijo (n) 
IF n ロ = ニ 0 THEN 
Kaijlo 三 1 





再帰 呼び 出し か ら の 脱出 条件 
ELSE 
Kaijo=n*※ Kaijo(n 一 1 ) = 一 ーー 一 一 一 再帰 呼び 出し 
END IF 


END FUNCTION 


この よう に , 自分 自身 の プロ シー ジェ ャ の 中 か ら 自 分 自身 を 呼び 出す こと を 再 
帰 呼 び 出 し (リカ ー シ ブ ・ コ ー ル ) と いい ます . 
さて , た と えば 3! を 求め た けれ ば 。 メ イン ルー チン か ら 。 


a ニ Kaijo ( 3 ) 


な ど と 呼び ます . この と き , 上 記 の Kaijo プ ロロ シー ジャ は 次 の よう に 再帰 呼び 出 
し を くり 返し ます . 





Kaijo( 3) 
/ 


0!= 1( 出口 ) 


X3 X2 PS 
2 ( 1! 0! 


プロ シー ジャ に Kaijo 





つま り , まず 「3『! 」 を 求め よう と する が これ は 「 3 x 2 1! 」 な の で , まず 
「 2! 」 を 求め な けれ ば な ら な い .「21」 は 「2xX11」 な の で まず 「11 
を 求め な けれ ば な ら な い . この よう に し て , 自分 を 求め る た め に 同じ 手続 き を 
使っ て その 1 つ 前 を 求め る と いう の が , 再帰 的 を アル プリ ズム な の で す . 


再帰 的 な アル ゴリ ズム に は 必ず 脱出 口 が な けれ ば な り ま せん . も し な けれ ば , 
再帰 的 呼び 出し は 永遠 に 続い て し まい ます . 階 乗 の 場合 の 脱出 口 は 0 != ニ 1 で 
す . 再帰 的 呼び 出し が 0 !「 に いき つい た と き , この 値 は 1 と 定義 され て いる の 
で も うこ れ 以 上 再帰 的 呼び 出し を する 必要 が な く な り , あと は 今 来 た 道 を 帰る 
だ け で す . つま り , Kaijo( 0 ) は 値 0 ! を 得 て リ ター ン し , Kaijo( 1 ) は 値 1 メ 
0! を 得 て リ ター ン し , Kaijo( 2 ) は 値 2X メ 1! を 得 て リ ター ン し … と 続き , 
一 番 最初 の 呼び 出し に 対し 値 3 メ 2 1 を 返し て 再帰 的 呼び 出し を 完了 し ます . 


以下 に 0 ! 一 10! を 求め る プロ グラ ム を 示し ます . 





” ーー--/* 階 乗 の 再帰 呼び 出し */--- 
DECLARE FUNCTION Kaijo 〈n) 
FOR n = 0 TO 10 

PRINJT ni "1="*> 民 ai joO(n) 


NEXT n 
END 


FUNCTION Kai jo (n) 
IF n = 0O THEN 
Kaijo = 1 


KaijO = n * Kaijo(n - 1) 


0 
1 
2 
J 
4 
5 
6 
7 
9 
1 


0 != 3628800 
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明 ハ ノイ の 培 





EIuzZa : 階 乗 を 求め る ブログ ラム は 何 も 再 帰 を 使わ な く て も . 


e 三 1 

FOR k 三 1 1IO n 
e 三 6e ネ K 

NEXT k 





と いう くり 返し で で きる と 思う ん で す が . 
ク 二 ・ そ の と お り , 階 棄 の 計算 は 再帰 より くり 返し で 書い た ほう が よい と 
思う . 階 乗 の 例 は 再帰 と いう も の を 理解 し て も ら う た め に 示し た だ 
け 7 ぞ 上 。 
EIUza : 再帰 を 使っ た お も し ろ い 例 は な い の で すか . 
先生 : それ で は ハノイ の 塔 ゲ ー ム と いう 再帰 問題 の 典型 的 な 例題 を や っ て 
Pk 生 。 






ハノイ の 塔 ゲ ー ム と は 次 の よう な も の で す . 

13 本 の 棒 ab,c が あり , 棒 a に , 中 央 に 究 が あい た n 枚 の 円 盤 が , 直径 の 大 き 
いも の を 下 に し て 順 訂 よ く 積 まれ て いま す . これ を 棒 b に 積み 変え る の が ゲー 
ム で す . た だ し , 円 盤 は 1 度 に 1 枚 の 円 盤 し か 移動 し て は いけ ませ ん . また , 
移動 中 に , 小さ な 円 盤 の 上 に , 大 き な 円 盤 が 乗る よう な こと が あっ て は いけ ま 


せん 」 








さて , 円 盤 の 枚数 n が 3 の 場合 に つい て この ゲー ム を 解い て み ま し ょ う . 





この 間 題 を 注意 深く 見 て みる と , 3 枚 の 円 盤 を b に 移す 問題 は 。 次 の よう に 分 
解 し て 考え る こと が で きま す . 


(上 に 乗っ て いる 2 枚 の 円 盤 を c に 移す . 
② 1 番 下 の 円 盤 を b に 移す . 
③c に 移し た 2 枚 の 円 盤 を b に 移す . 


上 の ② の 動作 は 1 枚 の 円 盤 の 移動 な の で これ で 作業 は 完結 し ます が , ① と ③ 
は 2 枚 の 移動 な の で , それ ぞ れ に つい て 2 枚 の 円 般 を と また は b に 移す 問題 と し 
て , 3 枚 の 場合 と 同様 な 手続 き を 踏ま な けれ ば な り ま せん . つま り , この ① と 
③ の 部 分 を 再帰 呼び 出し で 行う わけ で す . 

それ で は n 枚 の 円 盤 を ab に 移す 再帰 的 プロ シー ジャ Hanoi を 書い て み ま 
し ょ う . 

SUB Hanoi(n。 a$, b$ c$) 
IF n>0 THEN=ーー- 再帰 か ら の 脱出 条件 


nー 1 枚 円 盤 を 4 


Hanoli nー1, a$ c$ b$ ニ ーーー に 生 す 再帰 呼び 出し 
PRINT a$!: から":b$! "に 移動 "= - 6 ー 凍 1 
Hanol nー1。c$。 BS$。 0 の 円 盤 を cb 
END IF に 移す 再帰 5 び 出 し 


END SUB 
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ここ で 3 本 の 棒 を 示す 変数 を a$, bD$,。c$ と し , この 中 に “"a"。“b",。“c" と い 
う 文 字 を 入れ て お きま す . そし て , た と えば 円 盤 を ab に 移す 動作 を . 
PRINT a$!: “か ら ”":b$: “に 移動 " 


と 書く こと に し ます . 





ーー-/* ハノイ の 夫 問 題 の 再帰 解 */--- 
DECLARE SUB Hanoi (n 和 。 a$。 b$。 Cc$) 
INPUT "円 盤 の 枚数 ": nz 


Hanoi ut 
END 


SUB Hanoi (n 和 。 a$。 b$。 C$) 
IF (n% > 0) THEN 
Hanoi n 和 - 1 。 a$。 で C$。 b$ 
PRINT n%: " 番 の 板 を ": a$i: " か ら ": b$: の" に 移動 " 
Hanoi n 和 - 1 。 C$。 b$。 a$ 
END IF 
END SUB 





円 盤 の 枚数 ? 4 

1 番 の 板 を a か ら c に 移動 
2 番 の 板 を a か ら b に 移動 
1 番 の 板 を c か ら b に 移動 
3 番 の 板 を a か ら c に 移動 
1 番 の 板 を b か ら a に 移動 
2 番 の 板 を b か ら c に 移動 
1 番 の 板 を a か ら c に 移動 
4 番 の 板 を a か ら b に 移動 
1 番 の 板 を c か ら b に 移動 
2 番 の 板 を c か ら 1 
1 番 の 板 を b か らら a に 移動 
3 番 の 板 を c か ら b に 移動 
1 番 の 板 を a か ら c に 移動 
2 番 の 板 を a か ら b に 移動 
1 番 の 板 を c か ら b に 移動 
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Quick BASIC で 指 く 
グラ フィ ッ ク の 世界 












ュー エー エー トー エーーー エー ユー エエ ユー 


CNS で SS さこ べべ 















ンプ 二 弱 アフ フ プア ナナ ナイ エロ 
ン ン ンク クッ プン プン 笑 統 笠 TTASNNT 
メグ アア アノ アゾ 雇 同 TWSSS 
THU へ へ や 


HH NN 
kkvA 





BASIC の 優れ だ 機能 の 1 つ に プラ フィ ッ ツク が あり の ま 
9 す . グラ フィ イッ ク と いう 視覚 的 な 教材 を 通し て , より 
BASIC の 世 究 を 広げ て みて ぐだ さい , 

まだ 〇 B の も つ 再 帰 機能 を 利用 し だ た リカー シブ ・ ブ プラ 
フィ イツ ツ の 世 究 も 楽し ん で ぐ ください. 


1、 グフ フィ ッ ク 負 理 の 基 仙 


_ 先生 ・ い まま で は 文字 (キャ ラク タ ) 単位 で CRT に デー タ を 出力 し て いた 
ね . この 文字 を 出力 する 画面 の こと を テキ スト 画面 と 呼ぶ . 

EIUZd : 文 字 単 位 の CRT デ ィ ス プレ イ へ の 表示 で は , 細か い グ ラフ や 絵 を 描 
く こ と が で き な い か ら , ちょ っ と 物足りな いで すね . 

先生 ・BASIC で は 文字 単位 で な く , ピク セル (ドッ ト ) 単位 で 画面 に 表示 
を 行う こと が で きる . この 画面 を グラ フィ ッ ク 画 面 と 呼ぶ 、 この グ 
ラフ フィ ッ ク 画 面 に 対し , 直線 や 円 な ど を 描く 命令 が いく つか 用 意 さ 
4 し て いる 。 

EIUZa : テ キス ト 画 面 と グラ フィ ッ ク 画 面 は 異な る も の な の で すか . 

先生 : それ ぞ れ 別 な メモ リ (VRAM) に デー タ が 格納 され て いて , CRT テ 

ィ ス プレ イ 上 に は それ ら が 重ね 合せ (ミキ シン グ ) て 出力 され て い 











時 グラ フィ ッ ツン ク 画面 の 構成 


グラ フィ ッ ク で 扱う 座標 に は , ワー ルド 座標 。 スク リー ン 座 標 と いっ た 区 別 
が あり ます が , 当面 は 以下 に 示す よう に , CRT デ ィ ス プレ イ の 左上 隅 を (0, 
0 ), 右 下 隅 を (639, 399) と する 固定 的 な 座標 で 考え る こと に し ます . 


X 座 標 





639 


ーー 
と EE 
( 3 






(639, 399) 


( 399 ュ ーー 座標 一 / o 


ーー ビク セル ( ド 1 


ッ ト ) と いう 
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鐘 字 な と で 用 いる 一 般 的 な 座標 と 異な る 点 は , Y 座 標 の 上 下向き が 逆 で , Y 
座標 の 原点 が CRT デ ィ ス プレ イ の 上 部 に 位置 する と いう こと で す . X 座 標 は 0 
ー639, Y 座 標 は 0 一 399 の 値 が と れる の で , CRT デ ィ ス プレ イ は 640X400 個 の 
点 に 分 割 し て 考え る こと が で きま す . この 点 の こと を ピク セル (ドッ ト ) と 呼 
び , グラ フィ ッ ク 人 包 令 で は ピク セル を 個々 に 光ら せ た だ たり 消し た りす る こと が で 
きる の で す . た と えば 区 座標 3, Y 座 標 1 で 指定 され る (3, 1) と いう ピク 
セル は 先 の 図 の 拡大 部 に 示す ハッ チン グ の 部 分 に な り ま す . 


罰 グ ラフ ィ ッ ク 画 面 に 描く 色 


グラ フラ フィック 画面 に 描く 色 は 次 の よう な 数 値 で 指定 し ます . これ ら の 数 値 は , 
以後 に 説明 する LINE 文 や CIRCLE 文 の パラ メー タ と し て 使用 し ます . 










Floltlzlslylslelz 
slmlmlmlkl*| 和 lm 





虹 グラ フィック 負 理 を 行う 基本 命 負 


グラ フィ ッ ク に 関す る 命令 は , 細か に パラ メー タ を 与え る こと に より 多彩 な 
処理 を 行う こと が で きま す . 

し か し , ここ で は ビギナー が て っ と り 和 早く Quick BASI し で グラ フィ ッ ク を 楽 
し め る よう に , 基本 的 な こと だ け を わか りや すく 説明 し ます . 各 命 令 の 詳細 に 
つい て は , 付録 を 参照 し て くだ さい . 


クラ フィ ッ ク 画 面 の 設定 と 画面 クリ ア 
グラ フィ ッ ク 処 理 を 開始 する 場合 は 、 まず SCREEN 文 で 画面 モー ド を 設定 
し , 必要 に 応じ て CLS 文 で 画面 の 内 容 を クリ ア し ます . 


画面 モー ド を 640X400 グ ラフ ィ ッ クス ・ モ ー ド に 設定 


SCREEN 0 

LO (0.0) 
画面 の 内 容 を 
クリ ア す る 


( 639, 399) 


792 


$ 直線 を 引く 


LINE 1, y2) 一 (x2, y2)。 Col 
… 点 1, yl ) か ら 点 (x2, y2) に 直線 を 色 Col で 引く 





円 を 描く 


CIRCLE (xy), r,。 Col 
… 中 心 (。 y) で 半径 r の 円 を 色 Col で 描く 


点 を セッ トブ プリ セッ ト す る 


PSET (Cx 》)。 Col 
… 点 K,。 y) を 色 Col で セッ ト ( 色 を つけ る ) する 
PRESET (xy) 


… 点 (xy) の 色 を リセ ッ ト ( 色 を 消す ) する 


図形 内 を 塗る 


PAINT (x。 y), ペイ ント 色 , 境界 色 


… 境 究 色 で 描か れ た 図形 内 を ペイ ント 色 て で 塗る . 
(。 y) は 図形 内 の 任意 の 点 を 指定 する . 








(1.w1) 
(mi 
( 2, y2 ) 
ーー 握 CO| 
PSE 「 





チン 境 究 色 ( 枠 の 色 ) 


ベイ ント 色 ( 塗 る 色 ) 
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/, 間 里 な 図形 を 抽 く 


円 模様 
中 心 (320。 200) で , 半径 を 150 一 10 ま で 10 き ざ み で 変化 させ た 同心 円 を 描き 
ます , 次 に この 同心 円 を 1 つ ず つ 消 し て いき ます . 





ーー-/* 円 模様 */--- 


SCREEN 0: CLS 
Col = 1 
。 FOR 0 まま 0 STEP =10-- 
FOR r = 150 1O ー に が : 
CERCEE (320、 200) 。 エ 。 co」 ト 同心 円 を 色 Col で 指 
NEX1T r ei 
FOR r = 150 TO 10 STEP 一 バト 、 か 
CIRCLE (320。 200)。 Y,。 ンー か 
NEXI r 
CO = CO そ 』1 
Col = Col MOD 7 + 1 
wEND 
END 





799 





則 家 を 描く 


_EIuzZa : 何 か 立 体 的 な 図 を 描い て みた い の で す が ど うし た らい いで すか . 
2 し 士 ・ い ちば ん オー ソ ド ッ クス みな か 方法 は , グラ ブフ 用紙 に 元 図 を 描い て 。 各 
点 の 座標 デー タ を と る こと だ ね . 


(0,0) 


(① ② 


DAIA 100,60, 100, 160, 200, 100, 200, 200 
DAIA 280, 80, 280, 180 
















EIUZGd 引く 直線 は 全部 で 10 本 あり ます か ら , 各 直 線 の 始点 と 終点 座標 を 
DATA 文 の デー タ に し て お いて , READ 文 で 読め ば いい の で すね . 








ここ あっ ニャ ェ 


SCREEN 0: CLS 
FOR k = 1 TO 10 
READ XS8。 ys。 Xe。 ye 
LINE (XS 。 ys8)-(xXe。 ye)。 6 
NEXT k 
PAINT (240。 140) 。 1 。 6 


DATA 100.60,.100.160,.200。100,200。200 
DATA 280,.80,.280,180,180。40,180,92 
DATA 100.160.200,200.100.60,200,100 
DATA 180,40。280,80,100,.60,180。40 
DATA 200.100.280.80.200。200,280,180 
END 
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自 線 を 火 パ に 引く 


・ 次 の よう な 星 形 を 描く に は どう し た らい いか な . 









0 100) 





FIUZ :LINE (,) 一 (,) の よう な LINE 文 で 5 本 描け ば いい と 思い ます . 
先生 ・ そ れ で も いい が , この よう に 直線 を 次 々 に 引い て いく 場合 は 。 も っ 
と 簡単 で 一 般 性 の ある 方 法 が ある の で それ を 説明 し よう . 





時 LP 位 軒 


LINE 文 な ど に より グラ フィ ッ ク 画 面 に 操作 を 行っ た と き , 描き 終わ っ た 最 
後 の 座標 は 内 部 的 に 記憶 され て いま す . この 座標 を LP(Last referenced point) 
と 呼び ます . LINE 文 の 始点 を 省略 し , 


LINE 一 (X。 y)。 Col  …LP 仁 置か ら (x。y) に 色 Col で 直線 を 引く < 


と する と , 現在 の LP 位 置か ら (x, y) に 直線 を 引き ます . つま り , 連続 する 直 
線 は この LINE 一 (x,y)。Col を 使っ て 引い て いく こと が で きま す . な お , 最初 
の LP 位 置 を 指定 する に は PSET 文 を 用 いて 次 の よう に し ます . 


PSET (x。 y),。 Col …LP 位 置 を (x, y) 位置 に 移動 


/ 直前 の LP 位 置 


PSET (r1.y1) 


LINE 一 (r2, y2) / y1) 
LINE 一 (r3. y3) 「 ー Me 


(3, y3) 





57 








・ そ て それで は 年 の 図形 を 描い て みよ う ). 

EIUZd : 今 習っ た LINE 一 (, ) を 使う ん で すね . 

2 士 ・ 5 つの 点 の デー タ を DATA 文 に 置く こと に する . な お , 最後 に 始点 
に 戻る か ら , 始点 の デー タ を デー タ の 最後 に も 入れ て お く よ . 








' ニー-/* 時 */=-- 


SCREEN 0: CLS 
FOR K = 1 TO 6 
READ X,。 y 
1F K = ] THEN 
PSET (x。 y)。 1 一 最初 の 点 の 処理 
ELSE 
NL デー ん 表 。 う 。 1 
END IF 
NEXT K 
DATA 200,.100.80.240.280,.140.60.140.240.280,.200,100 
END 
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練習 問題 11 


炊 の よう な サイ ン ・ カ ー ブ を 描き な さい 、 





1 1 8 


風 aa 
川 川 II hh Tl レー 
… 舌 須 


XX 方 向 は 0 一 360 ま で 1 ドッ ト き ざ み で その まま グラ フ に すれ ば いい の で す 
が ,。 y の 値 (SIN (x) の 値 ) は 80 倍 に し な けれ ば な り ま せん し , y が 100 の 位置 
が 仮 の 原点 に な っ て いる の で , 


y ニ 100 一 80* SIN(x * Rd) 
し し 。 Y 方 向 は 上 下 が か が 逆 座標 に な っ て 


いる た の め の め マ イチ ナス に し そく ある 


と 補 止 し な けれ ば な り ま せん 。 


"---/* サイ ン ・ グ ラフ */--- 


SCREEN 0: CLS 
Rd = 3.14159 / 180 


LINE (0。 0)-(0。 200)。 5 ′ 座標 輸 
LINE (0,。 100)-(400。 100) 。 5 


FOR x = 0 TO 360 STEP 5 
y = 100 - 80 * SIN(x * Rd) 
IF x = 0 THEN 


ELSE 3 


END_ IE 





END 


4 LINE こ CIRCLE の いろ いろ ね お 使い 方 


EIuZg CIRCLE 文 で 円 が 描け る こと は 前 に 習い まし た が ,。 円 弧 や 椿 円 は 描 
け な い の で すか . 
2 し 士 ・CIRCLE 文 に 特殊 な パラ メー タ を 与え る こと で 描く こと が で きる . 











こい また LINE 文 で 点線 を 書く こと も で きる . 





時 LINE で 御 ( 長 万 形 ) を 描く 


LINE 文 に B ま た は BEF パ パラ メー タ を 与え る こと に より , 箱 (Box) と 箱 の 中 
を 塗っ た も の (Box Fill) を 描く こと が で きま す . 









(1,y1) 
LINE (1,y1) 一 (2, y2), Col, B _ 
a_] ( 2, y2 ) 
Box F 昨 pt 
LINE (1, y1) 一 (z2, y2), Col, BF ジン ン シラン ン ン 
色 
昌 実 線 以外 の 直線 を 引く 





実線 以外 の 直線 を 引く と き は ライ ンス タイ ル を 指定 し ます 。 ラ イン スタイル 
は 次 の よう に 16 ビ ッ ト の ビッ ト パ タ ー ン を 16 進 数 で 表現 し ます . 

つま り , 表示 する ビッ ト を 1, 表示 し な い ビ ッ ト を 0 と 考え , 4 桁 ず つ 16 進 
コー ド に 直し ます . 図 の (3) の 場合 は ライ ンス タイ ル 色 HCCCC, (b) の 場合 は ライ 
ンス タイ ル &HF99F と な り ま す .&H (アン パサ ンド ・ エ ッ チ ) は , これ 以後 の 
多 條 が 16 進 数 で ある こと を 示し ます . 


LINE (1, y1) 一 (x2, y2), Col . ライ ンス タイ ル 
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人 か C C 
に 旨 
(a) 点 線 1 Di 0 】 1 0 d@ 1.1 
ライ ンス タイ ル | ks 「 上 で モエ で 
( &HCCCC) 


(b) 一 点 鎖 線 
ライ ンス タイ ル 
(&HF99F ) 








リーー-/* 1 in ee の いろ いろ */--- 





SCREEN 0: CLS 
LINE (0。 10)-(150。 10) 。 1 
LINE (0。 30)=-(150。 30)。 2 


> GHCCCC 
> GHF99F 


iddbdbddEEEEEEEEEEEEELEELEUTULLELLELTTELY 


LINE (0。 50)-(150, 100) 。 3。 B。 &HCCCC 
05 (の ひ こよ るり)ー(《50。 150)。 1 B 
LINE (100。 120)-(150。 150) 。 2。 BE 時 
END 





、 進 ・16 進 の 話 = 

人 間 は 10 進 数 に 慣れ て いま す が , コン ご 

ピュ ー タ で は 2 進数 ・16 進 数 を よく 使い 

ます . これ ら の 進数 の 間 の 関係 を 右 表 に 

示し ます . 2 進 4 桁 が 16 進 1 桁 に 対応 し 
て いる 点 に 注意 し て くだ さい . 

。 な お 16 進 数 を 示す と き は 先頭 に &H 

(アン パサ ンド ・ エ ッ チ ナチ) を 付け て 16 進 数 

で ある こと を 明示 し ます . た と えば 名 

| HCCCC と か 名 HF99F と いっ た 具合 で す . 








0 
] 
2 
3 
4 
5 
5 
7 
8 
9 
A 
B 
C 
D 
E 
コ 


田 円 統 を 押 く 


CIKCLE 文 の パラ メー タ に 開始 角度 , 終了 角度 を 指定 する と 円 弧 を 描く こと 
が で きま す . 角度 の 単位 は ラジ アン で , 0 一 2 ヶ の 範囲 の 値 で す 。 円 弧 は 開始 角 
度 で 号 え られ た 点 か ら 反 時 計 回 り に , 終了 角度 で 光 え られ た 点 に 向かっ て 描か 
ま す . 

角度 に 一 (マイ ナス ) を 付け て 指定 する と , その 角度 の 絶対 値 を と っ た 値 で 
円 放 を き , さら に 中 心 と 始点 .。 お よび 中 心 と 終点 を 結び ます . つま り 扇 形 を 
指 く こと に な り ま す 


CIRCLE (x。 y), r, Col, 開始 角度 , 終了 角度 





@ サ ンプ ブル 

A 点 を 中 心 に 角度 120" の 円 弧 を 上 側 に 描き , A 点 より 半径 (50) 分 離れ た B 点 
を 中 心 に 角度 120' の 円 弧 を 下 側 に 描き ます . A 点 を 右 に 半径 分 ずら し な が ら , 同 
じ 操作 を くり 返し ます . 








「 ーー-/* 締め 縄 */--- 
CONST Rd = 3.14159 / 180 


SCREEN 0: CLS 
FOR X = 50 TO 600 STEP 50 
CIRCLE (XX。 100)。 50。 1。 0。 120 * Rd 
CIRCLE (XX + 50。 100),。 50。 1。 180 * Rd,。 300 * Rd 
IF (xx MOD 150) = 0 THEN PAINT (xx - 25。 100) 。 1 。 1 
NEXT 
END 150 お き に 青色 で 徐 る 


ーー 
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表 柄 円 を 描く 


CIKCLE 文 の パラ メー タ に 比率 を 指定 する と, 椿 円 を 描く こと が で きま す . 
比率 が 1 以下 の 場合 は , XX 座標 は その まま で Y 座 標 に この 比率 を か けた 値 が 
用 いら れる の て で 横長 の 椿 円 に な り , 比率 が 1 以上 の 場合 は Y 座 標 は その まま 
で XX 座標 に 1 比率 を か けた 値 が 用 いら れる の で , 縦長 の 椿 円 と な り ま す . 


CIRCLE (x。y), r, Col,,, 比率 





テー 吉 [4 半 :P 二 ち ど マ 


SCREEN 0: CLS 
FOR K = 1 TO 10 
し IRCLE (320。 200)。 100。 5。 。 。 K/ 10 
LRKCEIG (3207 2002。 100。 9 と 。 こよ JO た が 上 【 
NEXT Kk 


END 





いい U リル 
SN いい リア ンジ 
SN ンジ グ 





20Z 





9. ワイ ノド ウ りこ と ピュー ボー ト 


・ 今 まで は (0, 0) 一 (639, 399) と いう 限ら れ た 範囲 の 座標 を 扱っ 
て い だ た ね . し か し , 実際 に 扱う デー タ は , この 範囲 か ら は ずれ て し 
まう (小さ か っ た だ たり 大 きか っ た りす る た め ) こと が 多い . 
そこ で , この よう な 男 囲 の デー タ で も 簡単 に 画面 に 表示 で きる よう 
に , ウイ ンド ウ と ビュ ー ポ ー ト と いう 概念 が ある . 

EIUZa : 前 に サイ ンカ ー プ ブ を 描い た と き は , 適当 な 倍率 を か け , グラ フ の 中 

心 が 画面 の 中 心 に な る よう に 補正 し て いま し た ね . こう いう わ ず ら | 
わし い 処 理 が いら な く な る と いう こと で すか . | 

・ そ の と お り , WINDOW と VIEW と いう 命令 を 使う と 簡単 に で きる . 





元 生 






呈 WINDOW こ と VIEW 


LINE や CIRCLE 文 で 指定 する 座標 は ワー ルド 座標 と 呼ば れ , 画面 の ピク セ 
ル (640X400) に 制約 され な い 大 き な 範 囲 で す . 

この ワー ルド 座標 の 中 か ら ど の 和男 囲 を 切り 取っ て 表示 する か を , WINDOW 
文 で 指定 し ます . 切り 取っ た 範囲 は ちょ うど その 四角 の 窓 か ら ワ ー ル ド 座 標 を 
の ぞい て いる よう な も の な の で , ウイ ンド ウ (の ぞ き 窓 ) と 呼び ます . 


WINDOW (wx 1 , wy 1 ) 一 (wx 2 , wy2 ) 


… ワ ソー ルド 座標 の (wx 1 , wy1 ) 一 (wx 2 , wy2 ) を 対 角 と する 
四角 形 の 範囲 を 切り 取る 


そし て , この 切り 取っ た 範囲 を CRT デ ィ ス プレ イ 上 の どの 位置 に 表示 する か 
を , VIEW 文 で 指定 し ます . VIEW で 指定 され た CRT 上 の 範 位 を ビュ ー ポ ー ト 
と 呼び ます . 


VIEW (vx 1, w1) 一 (vx2, w2) 


… ワ リー ルド 座標 より 切り 取っ た も の を CRT 上 の (vx 1 , w1) 一 (vx2. w2) 
を 対 角 と する 四角 の 範囲 に 表示 する . 


VIEW 文 で 指定 する 点 は , CRT デ ィ ス プレ イ 上 の 左上 隅 を 原点 (0。 0) と 
し , 右 方 向 を XX の 正 , 下方 向 を Y の 正 と する 座標 上 の 点 で す . この 座標 を スク 
リー ン 座 標 と 呼び ます . 
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(wx 1, wy 1 ) 本 


(vx1. vy1) X 


次 


まき Da (vx2, vy2) 








CRT デ ィ ス プレ イ 


ワー ルド 座標 
(下方 を Y 座 標 の 正 の 向き と する ) 


ここ で 注意 を 要する こと は , WINDOW 文 で 指定 され た 範囲 は Y 座 標 の 方 向 
を 逆転 し て ,。 ビ ピュー ポー ト 上 に 取り 出さ れる と いう こと で す . この こと は 。 逆 
に 考え る と , ワー ルド 座標 の Y 座 標 を 一 般 座 標 と 同じ し に 上 を 正方 向 と 考え れ ば , 
そこ で 指定 し た 範囲 を ビュ ー ポ ー ト 上 に その まま の 向き で 取り 出し た こと に な 
る の で す . 


WINDOW( 一 200, 一 100) 一 (200, 200 ) 






(200, 200) 
( 200, 200) | 






ワー ルド 座標 (一 200.-100) 
(上 方 を Y 座 標 の 正 の 向き と する ) 


Nee-BASIC (686) と の 互換 性 


NEC の Nss-BASIC (86) の WINDOW 文 は , 下方 を Y 座 標 の 正 の 向き と する 
ワー ルド 座標 か ら , その まま の 向き で ビュ ー ポ ー ト 上 に 取り 出し ます . Quick 
BASIC で これ と 同じ こと を し だ た けれ ば , SCREEN オ プシ ョ ン を 付け て WIN- 
DOW SCRKEEN (一 200, 一 100) 一 (200, 2000 な ど と し ます . 





209 


因 リサ ジュ ユー 曲線 
x 三 Sin(a の ) 
y ニ sin(b2) 


と いう 式 で 示さ れる 点 を プロ ッ ト し て いく と . 有名 な リサ ジュ ー 有 曲線 が 得 ら れ 
ます . 

この xy の 値 は それぞれ 一 1 一 1 の 範囲 な の で , この 範囲 を WINDOW で 指 
定 し て ビュ ー ポ ボ ポート 上 に 表示 する こ どら に し ます . 


200 400 シン スクリーン 座標 
X 


ヒュ ー ポ ボート 





ワー ルド 座標 


300 


な お , リサ ジュ ー 有 曲線 は a と b の 比率 を 変え る こと に より 異な る 模様 が 得 ら 
れ ま す . この と き , 比率 に よっ て は 6 の の 値 を 360" よ り 大 きく と ら な けれ ば な ら な 
い 場 合 も あり ます . 
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「---/* リサ ジュ ー 曲 線 */--- 
CONST Rd = 3.14159 / 180 


SCREEN 0: CLS 


WINDOW (-1。 -1)-(1, 1) 紅 - ペ 
和 1 と 切 
VIEw (200, 100)-(400, 300) ウイ ント ドウ を 切る 


FOR n = -1 TO 1 STIEP .2 

SE CM ァ も うこ て nm 。 よう) 。 5 トー 凶 の 表示 
LINE (-1。 nm)-(1。 nn)。 5 

NEXT n 


FOR n 
双 


0 TO 960 SIEKP 2 
SIN(2 * n * Rd) 
Y = SIN(3 * mn * Rd) 
IF n = O THEN 
PSET (x。 -y)。 7 一 最初 の 点 の 処理 
ELSE 
LINE =-(X。 -Y)。 7 
END IF 
NEXT n 
END 





イキ ET し 
RT で 
MLHTN 條 上 





y ニ y 十 人 (/2)2 





2 上 
(一 800, 399) (639, 399) (1200, 399) 


(320, 一 200) の 点 を 中 心 に , Y=399 の 線上 の 各 点 を 近 次 結ん で いき ます . ビ 
ュー ボー ト を (0, 200) 一 (639, 399) に 設定 し て いる の で ,。 前 ペー ジ の 図 の 
点線 部 分 は 表示 され ませ ん . 


' 
| 
横 方 向 の 直線 は , 上 方 ほど 間隔 が 狭く , 下方 に いく に し た が っ て 間隔 を 広げ 
| 





ます . この 広げ 方 は (} / 2 )^ 2 で 変化 させ ます . 





SCREEN 0 
CLS 


VIEW (0。 200)-(639 。 399) ョ ーーーー-ー ビ ュー ボー ト を スク リー ン の 下 半 分 に 設定 
FOR X = -800 TO 1200 STEP 40 
LINE (320。 -200)-(X。 399)。 3 
NEX1 XX 
FOR jj = 1 TO 20 
アプ 信 うこ 、2 


"ーー--/* 球 と 地平 線 */--- 
| 


LINE (0。 y)-(639。 y),。 3 
NEX1I j 


VIEW (0,。 0)-(639。 399) <ーーーーー- ビ ュー ポー ト を 元 に 戻す 
| FOR k = 1 TO 4 
READ x,。 y,。r 
CIRCLE (x, y),。 r, 7 
| PAINT (x。 y),。 0。 7 ペーーーーー 一 円 の 中 を 黒 で ペイ ント 
| NEXT k トン 
DATA 420,150,80,290,50。 + トー (と の ユー 
DATA 230,300,60,140,150,20 4 個 の 円 の (& ツリ と の デ 





\ ヽ 
| 





)、 
人 ッ 韻 iu 
に 
ント TST こ こ 
の ジン ン ン アン メメ アメ ノレ アブ で ご 大 大国 回 記 志 下 到 臣 私 和 るる や や や NN 
ンク ク ク ク ク ク プ アニ トキ も 上 うさ さい いい いい ここ いこ 


ググ 2 の 、 イト TUNNNNN 





間 
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0. 3 次 元 7 ラ フィ ックス に 挑戦 


ーーー ニ ーー ーー ーー ーー ーー ーー ーー ーー 一 一 一 





2 年 ・ い まま で 扱っ て きた 図形 は すべ て 平面 図 形 で あっ た た だ ため , 図形 の 又 , 
Y 座 標 を その まま CRT の 座標 に 置き 換え る だ け で 簡単 に 表現 する 
こと が で きだ .。 と ころ が 立体 な どの 3 次元 図形 は X。Y。Z の 3 つ | 
の 座標 で 表 さ れる の で , 単純 に 双 , YY 座標 だ け で CRT 画 面 に 表示 す 





る わけ に は いか な い . 
EIUZa : それで は と ど と の よう に し て 3 次 元 図形 を 2 次 元 平面 に 表現 する の で す 
か , 


2 し 二 ・ 1 つの 方 法 と し て , その 立体 を 双 ,、 Y, Z 軸 回 り に それ ぞ れ 回 転 し , 
それ を X メ ーY 平 面 に 投影 する と いう 方 法 が ある . 

EIUZa : 難 し そう で すね . 

・ 原 理 は ちょ っ と 難し いか ら 結 果 だ け を 覚え て お け ば いい 、. 










Y ゅ (px.py) 


<A 


が 





N 


\ / 


Y 体 の ある 点 (x, Y, Z) を CRT 画 面 に 軸 側 投影 し て 得 ら れる 座標 (px, 
py) は , 次 の 式 で 求め られ ます . 


px 三 x・COS(/) 十 z・sin(/) 
py デニ y・cos( み ) 一 (一 x・sin(2) 十 zZ・cos (/) ) ・sin (Z) 


ただし, Z, / は X 軸 お よび Y 軸 を 回 転 し た 角度 で す . 





胃 3 次元 関数 を 描く 
3 次 元 図形 の 例 と し て 次 の よう な 3 次元 関数 を 表示 し て み ま し ょ う . 
y デ 30・(cos (Jx2 十 z2) 十 cos ( 3J x2 十 25) ) 


---/※ さ 次 元 関数 *※/--- 


CONST Rd = 3.14159 / 180 


SCREEN 0: CLS 
WINDOW (-320。 -200)-(320, 200) 





AX = 30 テ * Rd: Ay = 30 x Rd 
FOR Zz = 200 TO -200 STEP -10 
FOR x = -200 TO 200 STEP 5 
y = 30 #※ (COS(SQR(X ※ X + 乙 ※ 乙 ) %※ Rd) + COS(3 *X SQR(X ※ X + ZZ ※ 乙 ) ※ Rd)) 
GOSUB rotate 
IF XX = -200 THEN 
PSET (px, py), 3 
ELSE 
LINE -(pX、。 py)。 3 
END IF 
NEXT xX 
NEXT Z 
END 


TOtate: 
PX = X #※ COS(Ay) + ZZ w SIN(Ay) 


Py = ツ % COS(AX) - (-X w SIN(Ay) + ZZ x COS(Ay) ) *x SIN(Ax) 
RETURN 
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胃 隊 線 処理 


立体 を 描く と き , 前 方 の 面 の 後ろ に 隠れ て 見 えな い 線 を 消す こと を 陰線 処理 
と いい ます . 


際 標 処理 





陰線 処理 の 方 法 は 各種 あり ます が , ここ で は max・min と いう 単純 な 方 法 を 示 
に ます 、 

max・min 法 で は , 描く 図形 を 必ず 手前 か ら 描 いて いき ます . そし て , 以後 に 
描く 点 が , 前 に 描い た 点 群 (CRT の 同じ XX 座標 に 位置 する 前 の 点 群 ) の 最大 点 
と 最小 点 の 間 ( 点 群 の 内 側 ) に あれ ば , その 点 を 表示 せ ず , 逆 に 前 に 反 い た 点 
群 の 外 に あれ ば , その 点 を 表示 する よう に し ます . 


ク 今 描こ うと し て いる 点 


ーーーーーーーー = 


同一 X 座 標 に ある 点 和 群 


で 
引 超 ざさ 菩 症 
アメ 





陰線 処理 を し て 描く 図形 は 先ほど の 3 次 元 関数 に し ます . 

な お 。 max・min 法 で は 画面 上 の 点 群 の 最大 と 最小 を 記憶 し て お か な けれ ば な 
ら な い の で , その た め の 配 列 Ymin( ) と Ymax( ) を 用 意 し ます . そし て , 
この 配列 の 添字 に は XX 座標 (320 一 320) が 入り ます か ら , 配列 は 部 分 男 囲 型 
で 指定 し ます . 





DIM Ymin(-320 TO 320), Ymax(-320 TO 320) 
| CONST Rd = 3.14159 / 180 


SCREEN 0: CLS 
WINDOW (-320。 -200)-(320。 200) 
FOR K = -320 TO 320 

Ymin(k) = 200: Ymax(k) = -200 
NEXT k 


| Ax = 30 x Rd 
Ay = 30 x Rd 
| FOR z = 200 TO -200 STEP -10 
「 FOR xX = -200 TO 200 STEP 1 
yY = 30 # (COS(SQR(X ※ xX + Z *※ ZZ) *※ Rd) + COS(3 * SQR(x x xx + Z ※ Z) % Rd)) 
GOSUB Rotate 
IF Py く ・Yminm(Px) THEN Ymin(px) = py: PSET (px。 py)。 3 
IF Py > Ymax(Px) THEN Ymax(px) = py: PSET (px, py)、 3 
NEXT x 
NEXT z 
END 


Rotate: 
PX = X #※ COS(Ay) + ZZ % SIN(Ay) 
Py = y # COS(Ax) - (-x x SIN(Ay) + z # COS(Ay) ) x SIN(Ax ) 
RETURN 
| 
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y 三 70*COS(SOR(x 玉 x 十 Z*Z) 玉 Rd) 





y 三 1000/SOR(SOR((x 一 50) * (x 一 50) +(z 一 50) * (z 一 50) + 100)) 


ー 1000/SOR(SOR((x 十 50) * (x 十 50) 十 (z 十 50) *(z 填 50) 十 100)) 


/. リカ ー ツ ナグ フフ ィ ッ クス も お ま の も の 


EIUZG : リ カー シブ プ ・ グ ラフ ィ ッ クス と いう の は , 前 に 習っ た 再帰 (リカ ー 
ブフ ) と いう 考え 方 を 使っ た ム グ ラ フィ ックス な の で すか . 

2 し 士 ・ そ うい うこ と に な る ね . 
到 元 コン ピュ ー タ ・ グ ラフ ィ ッ クス に お いて 。 リ カー シ プ ・ グ ラフ 
ィ ッ クス が 注目 され て いる . 直線 や 単純 な 曲線 は デカ ルト 座標 に お 
いて 解析 的 に 表現 する こと が で きる が , 自然 界 に 存在 する 物体 」。 た 
と そば うっ そう と 繁 る 樹木 や 複雑 に 入り くん だ 島 の 入り 江 な ど を 
解析 的 に 表現 する こと は , 不可 能 に 近い こと だ . 
て で こ で , グラ フィ ックス の 世界 を 解析 的 に 表現 せ ず , 再帰 的 に 表現 
し よう と する の が リカ ー シ プ ・ グ ラフ ィ ッ クス な の だ . リカ ー シ プ ・ 
グフ フィ ックス の お も し ろ さ は , 和敬 く ほ ど 自 然 の 形 に 近い 図形 が い 
こも 科 単 に 表現 で きる と ころ に ある . 

EIUZ : 再帰 と いう 考え 方 自体 が よく わか ら な い の で , リカ ー シ プ ・ グ ラフ 
ザッ ダス っ て 難し そう で ず ね . 

2 し 士 ・ 人 会 来 の BASIC で は 再帰 と いう 考え 方 が な か っ た か ら , リカ ー シ プ ・ 

グフ ラフ ィ ッ クス は や り に く か っ た . と ころ が QB で は 再帰 手続 き を 作 

る こと が で きる か ら , リカ ー シ プ ・ グ ラフ ィ ッ クス は お 手 の も の な 

7 。 

そう は いっ て も 考え 方 は や は り 難 し いと 思う か ら , あま りか し こ ば 

ら ず に 気楽 に 楽し し ん で も ら え ば いい よ . 











昌 コツ 小曲 線 


コッ ホホ 曲線 は , 数 学者 の コッ ホ (H.von Koch) に より 発見 され まし た . 次 の 
凶 に が す よ うに , 0 次 の コッ ホ 曲 線 は 長 さ 6 の 直線 で す . 1 次 の コッ ホ 曲 線 は 。 
1 辺 の 長 さ が 1 3 の 大 き さ の 正三 角形 状 の 出 っ ぱ り を 出し ます . 2 次 の コッ 
ホホ 曲線 は , 1 次 の コッ ホ 曲 線 の 各 辺 (4 つ ) に 対 し , 1] 辺 の 長 さ が 6/ 9 の 大 
き さ の 正三 角 形状 の 出 っ ぱ り を 出し ます . これ を 無限 回 繰り 返せ ば , 無限 小 の 
長 さ の 線 分 が 無限 本 つなが っ た 曲線 と な り ま す . 
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n 次 の コ 


n 次 の コッ ホ 有 曲線 を 描く た め の ア ル ゴ リ ズム を 考え て み ま し ょ う . 


y ホホ 曲線 を 描く に は , n 一 1 次 の コッ ホ 曲 線 を 次 の よう に 4 つ 描 きま す . ここ 
で は , コッ ホ 曲 線 の 1 辺 の 長き は いつ で も leng に 固定 し て お く こ と に し ます . 
①n 一 1 次 の コッ ホ 曲 線 を 1 つ 描 く . 

② 向 き を 60" 変 えて nー1 次 の コッ ホ 曲 線 を 1 つ 描 く . 

③ 向 き を 一 120* 変 えて n 一 1 次 の コッ ホ 曲 線 を 1 つ 描 く . 

④ 向 き を 60* 変 えて nー1 次 の コッ ホ 曲 線 を 1 つ 描 く . 





"=---/* コッ ホホ 曲線 */--- 


DECLARE SUB Koch (N!。 
DECLARE SUB Turn (A!) 


Len!) 


DECLARE SUB Move (Leng!。 C!) 
COMMON SHARED Lpx,。 Lpy,。 Angle 
SCREEN 0: CLS 
N = 4 コッ ホ 次 数 
Leng = 4 *。 0 次 の 長 さ 
LpX = 50: Lpy = 120 開 始 点 
Angle = 0 ・ 開始 角 
Koch N, Leng ペーーーーーー 一 再帰 呼び 出 し 
END 
SUB Koch (N。 Leng) ′ コッ ホホ 曲 纏 の 再 委 手続 き 
IF N = 0O THEN 
MOoVe Len〆。 3 
ELSE ト 
Koch N - 1,。 Leng ー ョ 0 (4】 
Turn 60 ー 
Koch N - 1。 Leng 導 \ ら 
Turn -120 な 、 
Koch N - 1。 Leng ]@ 
Turn 60 PR 
Koch N - 1。 Leng 1@ 
END IF 
END SUB 
SUB Move (Leng,。 Col1) 
X = Leng * COS(3.14159 / 180 * Angle) 
y = Leng * SIN(3.14159 / 180 * Angle) 
LINE (LpX。 Lpy)-(LpX * X。 Lpy - Y)。 Co1 
LDX = LDX + X: LpDY = Lpy - 
END SUB 
SUB Turn (De と ) 
AnEle = Angle + De と 
Angle = Angle MOD 360 
SUB 


END 


っ ーー ーーーー ーー 


= = ーー エーーー ニー 一 一 = 一 ーー mass ーー ーー= ョ ーーー mr =ーー 


「 
| 
| 











『 | り 


ITP 4 .0U IGT 1.0U 
YS 
ども て プー さば けい 
Y に ま ( gk て 
の そっ 5 き な 2 中 y て ム ず 、 ES 
この コッ ホ 曲 線 を 3 つ , 120'" の 傾き を 成 し て くっ つけ る と , 雪 の 結晶 の よう な 





ーー-/* コッ ホホ 亡 */--- 


DECLARE SUB Koch (N! 。 Leng! ) 
DECLARE SUB Turn (A!) 

DECLARE SUB Move (Leng! 。 Cc! ) 
COMMON SHARED Lpx。 Lpy。 Angle 


SCREEN 0: CLS 


N = 4 コッ ホホ 次 数 
Leng = 4 ′ 0 次 の 長 さ 
LpX = 50: Lpy = 120 ′ 開始 点 
Angle = 0 ′ 開始 角 
FOR 1 = 1 TO 3 

Koch N。 Leng 

Turn -120 
NEXT ji 
PAINT (200。 150)。.3。 3 
END 


SUB Koch (N。 Leng) 
IF N = 0O THEN 
MoVve Leng。 3 


コッ ホホ 曲 縁 の 再帰 手続 き 


ELSE 
Koch N - 1。 Leng 
Turn 60 
Koch N - 1。 Len 
Turn -120 
Koch N - 1。 Leng 
Turn 60 
Koch N - 1。 Leng 

END IF 

FEND SUB 


SUB MoVe (Leng。 Col ) 
X = Leng * COS(3.14159 / 180 * Angle) 
Y = Leng * SIN(3.14159 / 180 * Angle) 
LINE (LDX。 LDy)-(LDX + X。 Lpy - y)。 Col 
LDX = LpDX + X: Lpy = Lpy - y 

END SUB 


SUB Turn (Deg) 
AngEle = Anle + Deg 
AnElIe = Angle MOD 360 
END SUB 
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So: ass 
= プロス ・ ス テツ チ ナチ 
コッ ホ 曲 線 が 正三 角形 を 基本 と し て いる の に 対し , クロ ス ・ ス テッ チ は 正方 
形 を 基本 に し て いま す . 原理 は まっ た く 〈 く 同じ で , n 次 の クロ ス ・ ス テッ チ を 提 
くに は n 一 1 次 の クロ ス ・ ス テッ チ を 5 本 描け ば よく , 描 く 方 向 は 十 90, 一 90, 一 
90, 十 90 の 順に 変わ り ま す . 
「 





「---/* クロ ス ・ ス テッ チ */--- 


DECLARE SUB Stech (N! 。 Leng'! ) 
DECLARE SUB Turn (A!) 
DECLARE SUB Move (Leng!。 C!) 


COMMON SHARED LpX, Lpy, Angle 「 


SCREEN 0: CLS 
N = 4 
Leng = 2 こ 
LpX = 200: Lpy = 250 と 
Angle = 0 ピ 
FOR ii = 1 TO 4 

Stech N。 Leng 

Turn 90 
NEXT ji 
END 


中 政 〇 >) 
区 其 党 ポ 
NN すい さら まい 

需 ① 


SUB Move (Leng,。 Co1 ) 
X = Len を COS(3.14159 / 180 * Angle) 
y = Len * SIN(3.14159 / 180 * Anle) 


LINE (LpDX。 Lpy)-(LDX + XX。 Lpy - Y)。 Col ( 結 果 ) 
LpX = LpX + X: Lpy = Lpy - ア 本 
END SUB 
SUB Stech (N, Len と ) ′ ステッチ の 再 放 手続 き 


IF N = 0O THEN 
Move Leng。 3 


ELSE 
Stech N - 1。 Leng 
TurTn -90 
Stech N - 1。 Leng 
Turn 90 
Stech N - 1。 Leng 
Turn 90 
Stech N - 1。 Leng 
Turn -90 
Stech N - 1。 Leng 

END IF 

END SUB 


SUB Turn (De ) 
AnEle = Anle + De 
AnIe = An と le MOD 360 
END SUB 





227 


_Move と Turn | 


中 線 を 引く 方 法 と し て は , 次 の 2 つが あり ます . 


① 始 点 と 終点 の 2 点 を 与え る . 
② 長 さと 方 向 を 与え る 


① の 方 法 は LINE 文 で 行え を ます が , ② の 方 法 は BASIC の グラ フィ ッ ク 命 今 に 


は あり ませ ん . この ② の 方 法 は , リカ ー シ プ ・ グ ラフ ィ ッ クス や ター トル ・ グ 


ラフ ィ ッ クス な ど を 行う 際 に 重要 な 方 法 な の で す . そこ で , ② を 実現 する た め 
に Move と Turm と いう 手続 き を 作り まし た 
現在 位置 を (Lpx, Lpy), 現在 角 を Angle と し た と き , この 位置 か ら 長 さ Leng | 





Leng *※COS( Angle 


し だ た が っ て , 長 さ Leng の 直線 を 現在 位置 か ら 現 在 角 で 引く 手続き Move は 次 
の よう に な り ま す .」 


SUB Move (Leng, Col) 
x 三 Leng*※COS (3.14159 プ 180 * Angle) 
y ニ Leng*SIN (3.14159 180 * Angle) 
LINE (Lpx, Lpy) 一 (Lpx 十 x。 Lpyーy), Col 
Lpx 三 Lpx 十 x : LDpy ニ Lpy 一 y 
END SUB 





現在 位置 を 更新 


現在 角 を Deg 度 回 転 す る 手続 き Turn は 次 の よう に な り ま す . 
SUB Turn (Deg) 
Angle ニ Angle 十 Deg 


Angle 三 Angle MOD 360 =ーーーーーーーーー Angle の 値 が 360 を 超え 
な いよ うに する 
END SUD 


な お , Lpx, Lpy, Angle は すべ て の プロ シー ジャ で 使用 する た め 。 グロ ー バ 


ル 変 数 と し て 宣言 し ます (COMMON SHARED). 
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ファ イル で 行う 
デー タ 菅 埋 











コン ピュ ー タ の 最も 得意 な 分 野 の 1 つ は デー タ 負 理 で 
_ す . これ ら の デー タマ は ファ イル と し て フロ ッ ピ ー・ デ イィ ー 


スピ ビ 栓 納 し ます . 


この 草 で は ファ イル 負 理 の 基本 操作 に つい て 学び ます . 」 





| ノ ァ イル 処理 の 基 借 知 


2 し 士 ・ プ ログ ラム で 扱っ て いる デー タ は , 一 般 に メモ リ 上 に 保存 され て い 
る か ら , パパ ソコ ン の 電源 を 切れ ば みん な 消え て し まう . だ か ら , 残 
し て お きだ た い デ ー タ は フロ ッ ピ ー デ ィ ス ク な ど に 保存 し て お か な け 
れ ば な ら な い . 

EIUZa : ソ ー ス ・ プ ログ ラム 自体 の セー プ は メニ ュー 操作 で 簡単 に 行え まし 
た が , そん な 感じ で で きる の で すか . 滑 還 較 
・ デ ー タ の リー ド プ ライ ト は ちょ っ と し た 準備 と 知識 が 必要 だ . ここ 

で は それ ら に つい て 読 明 し よう と 思う 。 





ーー 





ノ ファ アイ ル こ と ファ イル 名 


デー タダ を フロ ッ ピ ー デ ィ ス ク に ライ ト し て いっ た ち き の ,。 ひと か だ まり の 単 
位 を ファ イル と 呼び ます . そし て その ファ イル は , ファ イル 名 で 管理 され ます . 





LVN 


な 4 し レ MT 


、 ズ .- 了 7 
TA 
pr 





mm im im im 本 中 硬 中 店 中 中 中 結 呈 
計画 計 村 四 申 下 中 中 本 本 還 男 還 二 四 画 中 中 可 下面 

車 車 剛 加 | 硬 琶 画面 面 遇 画面 画 画面 | 硬 古 四 二 申 中 志 測 正和 時 四 申 抽 持 手提 香 笠 中 直 中 中 中 
RW 時 還 四 下 中 男 画 | | 右 | 画 | 画 還 


還 ′ 下 | 愉 画 町 下 宣 亜 加 画 画 画 叶 画 | 亜 : 画 画 
還 時 


財 B 
下 尾 叶 叶 還 証 面 加 咽 晶 唱 画面 画 画 画 還 還 十 画 填 ( 面 古 面 臣 亜 画 咽 亜 回 時 還 重量 吾 _ 環 亜 -: 還 | 画 画 画 画 画 | 画 画面 | 画 画 画 画 _ 画 ! 画 画面 画面 申 申 申 映 耐 面 桂 末 
計 き 時 軒 亜 量 晶 画 中 唱 画 ( 硬 画面 男 中 直 者 斬 還 慎二 四 講 申 再 所 中 本 本 亜 画 画 呈 唱 面 ( 画 亜 画 画 画 軸 司 画 画面 直 画 画 画 画 習 珈 還 晶 時 手 昌 晶 部 刀 百 


還 下 還 画 画 存 寺 皇 十 画 量 量 中 画 大 下村 画 画 晶 量 中 画 画 面 面 画 画面 画 - 画 

計 軒 男 画 画 画 中 画 ( 画 男 画 画 面 面 画 走 量 持 面 百 還 寺 中 申 遇 中 中 画 四 還 還 中 下 吾 | 硬 硬 還 画 画 画 画 中 面 本 王 亜 画 軸 垣 暫 構 種 種 還 王 亜 王 叶 面相 画 中 
理 宮下 車 還 皿 還 画 呈 還 草 古 還 面 二 看 古 計 古 還 申 趣 画 遇 電 在 量 晶 画 還 是 是 男 還 面 下 画 画 昌 還 是 還 還 四 還 年 還 還 提 還 
m 還 中 二 


QB で 扱う ファ イル 名 は , 以下 に 示す MS-DOS の ファ イル 名 の 規則 に し た が 
いま す . 
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また , MS-DOS で は 階層 ディ レク トリ 構造 を と っ て いる た め , ファ イル 名 を 
指定 する の に パス 名 を つけ る 場合 が あり ます . 





Le 


な お , ファ イル 名 の 英字 の 大 小文字 は 区 別 き され ず 同 し じ も の と し て 扱わ れ ま 
す . つま り test.dat と TEST.DAT は 同じ ファ イル 名 と な り ま す . 


時 フラ ァイル の オー プン と リー ド ノ ラ イト 

一 般 に , ファ イル と の 間 で デー タ の や り と り (リー ド ノ ラ イト ) を する に は . 
まず ファ イル を オー プン し な けれ ば な り ま せん . 

だ と くそ ば, ファ イル ABC.DAT に デー タ を 書き 出し て いく と き は 次 の よう に 
ファ イル ・ オ ー プ ン し ます 。. 


1D) リーズ ア イル 佑二 
Ne へ OPEN “ABC.DAT"” FOR OUTPUT AS #1 


ファ イル 名 ーー 出 志 モー ド 

これ で ファ イル ABC.DAT は 出力 モー ド で ファ イル ・ オ ー プ ン さ れ , 以後 。 1 
番 人 #1) と いう ファ イル 番号 で 管理 され ます . 

さて , こう し て オー プン され た ファ イル に デー タ を 書く に は , WRITE 文 を 用 

いて 次 の よう に し ます . 








変数 や 式 を 並べ る 
WRITE #1. NAM$. YEAR 
ファ イル 番号 





この よう に し て デー タ を すべ て 書き 出し た ら , CLOSE 文 で ファ イル を 閉じ ま 


す . 
(! CLOSE 0 
に 人 くべ や ーーーー フ ァイル 番号 
2 


ファ イル か ら デ ー タ を リー ド す る 場合 は , 


OPEN ABC.DAT” FOR INPUT AS #1 
トー 入 カ モー ド 





と ファ イル ・ オ ー ブ プン し て お いて か ら 。 


ー 一 変数 を 並べ る 


INPUT #1, NAM$, YEAR 


で リー ド し ます . 


ファ イル ・ オ ー プ ン と ファ イル 番号 ーーーーー 


ファ イル 処理 を する 場合 , 裏方 で は デー タ が どこ まで リー ド プ ライ ト さ れ て 


いる か な と ど と, いく つか の ファ イル 情報 を 管理 し て いな けれ ば な り ま せん . この 
明 方 で ファ イル 処理 を 受け お っ て いる 黒子 に 付け られ た 番号 が #1 生か ど と の 


ファ イル 番号 で す . ファ イル ・ オ ー プ ン に より , その ファ イル と 黒子 を 結び 付 
ける の で す . 


OPEN ABC.DAT OUTPUT A6 拓 





75 れれ イレ し 公理 












か 、 4 し ABC.DAT を W 
人 ング 2 い 具 理 3 体 LL7 [ 
こう " 2 し / 全 が 暫 









デ 
デブ 


ルイ 4 し 処理 の 時 2 條 LU ス 下さい / 
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2. CD 曲目 ファ イル を 作る 


CD (コン パク ト ・ デ ィ ス ク ) の 曲名 , 歌手 演奏 時 間 を デー タ と す 
る CD 曲目 ファ イル を 作っ て みよ うと 思い ます . 

: そう だ ね . デー タ を 書き 出す プロ グラ ム と , 逆 に 読み 出す プロ グラ 
ム の 2 つ を 作っ て ご らん . 











シ ー ケ ン シ ヤ ル ・ フ ァイル の ライ ト 
デー タ は キー ボー ド か ら 入 力 し て いき , デー タ の 終わ り は ノ (スラ ッシュ ) 
と し ます . 





「 ーー-/* シー ケン シャ ル ・ フ ァイル の 書き 込み */--- 


OPEN "bz:cd.dat" FOR OUTPUT AS #1 ペ ーーーー フ ァイル 名 cd.dat を 出力 モー ド で オー プン 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 秒 ) ": Songs。 Singer$。 Min。 Sec 
WHILE Song$ <> "/" 

WRITE #]。 SOng$,。 Singer$, M 
INPUT "曲名 , 歌手 , 演奏 時 間 
wEND 


CLOSE #1- コ ーー- ファ イル の クロ ー ズ 
END 


in。 Sec さ ーー ファ イル へ の ライ ト 
(分 , 徐 ) ": Song$, Singer$,。 Min, Sec 


、 シー ケン シャ ル ・ フ ァイル 
OUTPUT モ ー ド で オー プン され た ファ イル に WRITE 文 で デー タ を 書き 出 
_ し て いく と, 次 の よう に ファ イル 先頭 か ら 逐 次 デー タ が 記録 され て いき ます . 
この よう な ファ イル を 。 シー ケン シャ ル ( 迄 次 )・ フ ァイル と 呼び ます . 





ファ イル ABC. DAT 









ElIuza 
1 件 目 の デ ー タ 2 件 目 の デ ー タ 3 件 目 の デ ー タ 





シー ケン シャ ル ・ フ ァイル で は , 特定 の デー タ (n 件 目 の デ ー タ ) を 即座 に 
リー ド ノ プラ イト で きま せん か ら , いつ も ファ イル 先頭 か ら 逐 次 処理 を 行っ て い 
か な けれ ば な り ま せん . 








ネ 
・。 戦 
の 

ム 


へ 前 
[ 答 己 
さい 
記 
詩 , ご 
こい 


RY 
み 
\ い < 
| 
EE 
い ? < 


の 


ぶ 式 1 
の 


へ 圧 NC 叶 中 へ 避 9 
2 
ら スム 
\? 


疾 ご 人 
族 届 ・ ぷ すず 
ら っ 


聞 当 次 幼 上 本 き 記 ご 重 愛 飛 
の 遇 六 ン マン で と ぴざ 9 税 


作 。。 信 いみ 如 


路 寺 
ふ ム 
呈 ーー 


QNONQN 上 RONONONRNRNONON 


に に に に に に に に た ト た に: 
dt 層 相 層 李 相 相 李 憶 蛋 李 
選 聞 導 送 紀 前 導 導 前 導 
問 六 溢 六 六 六 溢 六 溢 六 溢 導 
すす 上 す と よ す と 上 よ すす 
に に に に に に に に に に に に 
ぷ ふ 層 
の かざ ざき びさ ざ ざ ざ ざ ざ 


曲 
曲 
曲 
曲 
曲 
曲 
曲 
曲 
曲 
曲 
曲 
曲 


で s 
mw 





昌 シ ー ケ ン シ ャ ヤル ・ フ ァイル の リー ド と EOF 関 数 
ファ イル か ら デ ー タ を リー ド し て いく と き に , ファ イル の 終わ り を 検知 する 
関数 EKOF(n ) が あり ます . EOF(n ) は ファ イル の 終わ り で 真 を 返し ます . n 
は ファ イル 番号 で す 。EOF は エン ド ・ オ プ ブ ・ フ ァイル の 意味 で す . 
ファ イル 番号 n の ファ イル を ファ イル ・ エ ンド まで リー ド す る に は , 


WHILE NOT EOF(n) 
っ 
ァイル 番号 
WEND 


と し ます 。 


” ~ー~ー-/ を シー ケン シャ ル ・ フ ァイル の 読み 込み */--- 
OPEN "b:cd.dat“" FOR INPUT AS #1 ペーーー 一 入力 モー ド で オー プン 





CLS_ 
ーーー ペー サー ec at 
Num = 1 


wHILE NOT Eor(1) ーー ノア イル エン ド に な る まで くり 返す 

INPUT #1, Song$, Singer$。 Min。 Sec =ーーー-ー フフ アイ ル か ら デ ー タ を リー ド 
PRINT USING "### "< NU 血 * 
PRINT Song$: TAB(28): "1 
NU 画 = Nu 画 + 1 


"i Singer$: TAB(50): "1 "| Mini “の:": Sec 









『 
1 
『 
キ 
『 
| 
『 
『 
『 
『 
『 
『 
『 
1 
『 
『 
| 
1 
| 
『 
1 
『 
| 
『 
| 
『 
『 


1 
2 
J 
4 
5 
6 
7 
8 
9 
0 
1 


me 
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時 
ON 


バン バン 


へ NNC 叶 べ 融 9 


mnhi 6 つら らら の の エエ エエ よい らら の 


節 
の 
め 
ち 
人 
ル 
い 
い 
が 
恋 
の 


性 誠信 テ み 田 有 こさ 呈 党 
田 コ かめ 冶 こ ご Y 鞍 ご ヽ 田 王 
油 潜 ほ 小 ・ ぷ 出生 旨 


噛 様 び 炊 1 向 因 ・ 


も コ 
旅 
時 
い 
恋 
サ 
日 
ト ュ 
各 
初 
君 


時 シー ケン シャ ヤル ・ フ ァイル の アベ ンド 


FIUZ8 


先生 


FIUuZ8 


宇 





・ 新 し い CD が 入っ た の で 曲目 ファ イル cd.dat に デー タ を 追加 し た い 


・ そ ん な こと を し た ら 前 の デー タ が みん な 消え て し まう . OUTPUT 





の で す が , また OUTPUT モ ー ド で オー プン し て WRITE すれ ば いい 
の で すか . 


モー ド で オー プン する の は 新規 の デー タ を 書き 込む 時 だ け だ . デー 
タ を 追加 し て いく な ら APPEND モ ー ド で ファ イル オー プン し な け 
れ ば な ら な い . 

・ そ れ で は ,。 OPEN “b : cd.dat FOR APPEND AS#1 と オー プン 
する の で すね . 

・ そ れ で いい . その 他 の 作業 は 前 に 示し た ファ イル ・ ラ イト の ブログ 
ラム と 同じ で いい よ . 


"ーー--/* シー ケン シャ ル ・ フ ァイル の 追加 */--- 

OPEN "b:cd.dat"' FOR APPEND AS #1 

INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 徐 ) ": Song$,。 Singer$。 Min。 Sec 
WHILE Song$ <> "/" 


WRITE #1。 Song$。 Singer$。 Min,。 Sec 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 秒 ) ": Song$, Singer$。 Min, Sec 


WEND 
CLOSE #1 
END 





ファ イル エン トド 


今 ま で の ファ イル ファ イル の 終わ りか ら 


デー タ を 追加 し て いく 








). CD 曲目 ファ イル 辿 理 プロ グラ ム 





EIUZa CD 曲目 ファ イル を リー ド プ ノラ イト する の に , さっ き の よ うに 別々 の 
プロ グラ ム を いち いち ロー ド し て 実行 し て いた の で は 大 変 で すね . 

て 十 ・ 先 ほど 作っ た ライ ト , リー ド , アペンド の 各 プ ログ ラム を 1 本 に ま 
と め , 次 の よう な メニ ュー 選択 で 各 処 理 を 実行 で きる よう に する と 
いい よ . 





か ら 選 択 し て くだ さい 
込 み 
み 


タ 
タ 
タ 


ーー すま 」 
りりこ 


メ 
ィ 
ユ 





FIUZd : メ ニュ ー 選 択 は 多 方 向 分 岐 だ か ら SELECT CASE 文 を 使う と よい 
eg 
SELECT CASE n 
CASE 1 
ー タ の 書き 込み 





「o う HH 


CASE 
デー タ の 追加 
CASE 3 
デー タ の 読み 込み 
CASE ELSE 
終了 処理 
END SELECT 


宛 生 ・ な お , デー タ の 書き 込み と デー タ の 追加 の 処理 で は 同じ デー タ 入力 
ルー チン を 使う か ら , これ を DataInput と いう サブ ルー チン に する 
届 Ma。 











"ニニ --/※ CD ベス ト ・ コ レク ショ ン 管 理 プ ログ ラム 


DO 
PRINT : PRINT : PRINT "次 
PRINT "1: デ ー タ の 書き 込み 
PRINT "2: デ ー タ の 追 加 " 
PRINT "3: デ ー タ の 読み 込み " 
PRINT "4: 終 了 " 
INPUT "メニ ュー 番号 --->": n 


SELECT CASE n 

CASE 1 
OPEN "bi:cd.dat" FOR OUTPUT AS #] 
GOSUB Datalnput 
CLOSE #1 

CASE 2 
OPEN "bi:cd.dat" FOR APPEND AS #] 
GOSUB DataInput 
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上 ノーーー 


の メニ ュー か ら 有 選択 し て くだ さい " 


メニ ュー 表示 


デー タ の 書き 込み 





CLOSE #] 
CASE 3 
OPEN "b:cd.dat" FOR INPUT AS #1 
CLS デ 
PRINT " 曲 名 歌手 ! | 
PR 1 NT “ニー ニー ニャー ニニ ニニ ニニ ニー ニニ ニニ ニニ ニニ ニニ ニー ニニ ニー ao こと こも る 
NU 四 三 1 の 
WHILE NOT EOF( 1 ) ぐ 
INPUT #1、 Song$。 Singer$,。 Min。 Sec | 
PRINT USING " 基 若 # ": NUm: み 
PRINT Song$: TAB(28): "1 ": Singer$: TAB(50): "1 "iMini A 
Num = NuUm + 1 み 
wEND 
CLOSE #1 
CASE ELSE 2 
PRINT " 終 』 生 だ ー で ia 
END SELECT | 終了 処理 
LOOP WHILEn< 4 
END 
DatalInpPut: 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 徐 ) ": Song$, Singer$。 Min, Sec デー タ 入 力 と 
WHILE Song$ <> "/" 春 き 込み 
WRITE 幕 1 。 Song9$, Singer も ,。 Min, Sec | に < 
INPUT "曲名 , 歌手 , 演奏 時 間 (分, 徐 ) ": プル が ン 


wEND 
RETURN 
END 


Son9$,。 Singer$ も 。 Min, Sec 





4 フン ダム ・ フ ァイル 





EIUZd : 先 に 作っ た CD 曲目 ファ イル (シー ケン シャ ル ・ フ ァイル ) で , 途中 

の デー タ に 誤り が あっ た 場合 に 直す こと は で きま すか . 

先生 : その デー タ だ け を 書き 直す こと は で き な い . し た が っ て , その デー 
タ の 直前 まで を 別 の ファ イル に コピ ー し て お き , 誤っ た デー タ を 書 
き 足 し て か ら 残 り の デー タ を また コピ ー す る と いっ た , 複雑 な 処理 
を し な く て は な ら な い . 












新しい デー タ 
EIUZ : も っ と 科 単 に で き な い の で すか . 

先 牛 1 件 1 件 の デー タ を 直接 扱い た い 場 合 は 。 ファ イル を ラン ダム ・ フ 
ァイル と し て 構成 すれ ば 簡単 に で きる よ . 








叶 フ ラン ダム ・ フ ァイル の 概要 


フン ダム ・ フ ァイル を 構成 する た め に は , 1 件 あたり の デー タ の 構成 を きち 
ん と し て お か な けれ ば な り ま せん . 
先ほど と の CD 曲目 の 曲名 , 歌手 , 演奏 時 間 を , 次 の よう な レコ ー ド 型 と し て 定 
言 し ます . 
TYPE CDMUusic 
SOng AS STRING * 20 曲名 
SInger AS STRING※20 ーーーーーー 了 歌 手 











Min AS INTEGER 一 ーー 源 奏 時 間 ( 分 ) 
SeC AS INTEGER ラーーー /  ( 秒 ) 
END TYPE 


DUIM CD AS CDMusic =- 変 数 CD を CDMusic 型 と し て 宣言 
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そし て , この CDMusic 型 を 1 件 の レコ ー ド と する ラン ダム ・ フ ァイル cd.rnd 
は 。 次 の よう に オー プン し ます . 


レコ ー ド の サイ ズ を 指定 
OPEN  b:cd.rnd 。 FOR RANDOM AS Eu (CD ) 
ラン ダム ・ フ ァイル の 指定 レコ ー ド サイ ズ を 調べ る 関数 


こう し て オー ブン し た ファ イル の 第 n レコ ー ド に , 変数 CD の 内 容 を ライ ト す 
る に は , 
PUT #1, n, CD 
レコ ー ド 型 変数 


レコ ー ド 番号 
ファ イル 番号 


と し ます . 逆 に 第 レコ ー ド の デー タ を 変数 CD に リー ド す る に は , 
GET #1, n, CD 


レコ ー ド 番号 
ファ イル 番号 


る し ます 。 





ラン ダム アァ イル cd.rnd 


PUT #1。 n, CD 


GET #1. n, CD 





QB の ラン ダム ・ フ ァイル で は , PUT。 GET に より レコ ー ド 型 デ ー タ を 一 括 
ファ イル に リー ドラ イト する こと が で きま す . これ は , 従来 型 BASIC に は な 
い 強 力 な 機能 で す . 
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員 ラ ンダ ハム ・ フ ァイル の リー ド ノ ラ イト 


レコ ー ド 番号 を 指定 し て , CD 曲目 デー タ を ラン ダム ・ フ ァイル に 書き 出す プ 
ログ ラム と 読み 出す プロ グラ ム を 示し ます . 





) ~---/* ラン ダム ・ フ ァイル の 書き 込み */--- 


TYPE CDMusic 
S0Tn〆 AS SIRING * 20 


Singer AS STRING * 20 _ ax 玩 山 / ie 
Mi n AS INTEGER レコ ー ド 学 CDMusic の 定義 
SeC AS INTEGER 

END TYPE 

DIM CD AS CDMus ic CDMusic 型 の 変数 CD の 宣言 





OPEN "bi:cd.rnd" FOR RANDOM AS #]1 LEN = LEN(CD) 
INPUT "レコ ー ド 番号 ": Rec 
wHILE Rec > 0 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 徐 ) ": CD.Song, CD.Singer。 CD.Min, CD.Sec 
イト 


PUT #1 。 Rec。 CD ーー ライ 
INPUT "レコ ー ドド 番号": Rec 

WEND 

CLOSE #1 


END 







時 間 ( 分 , 秒 ) ? 季節 の 中 で , 松 山 千春 ,3,15 
時 間 (分 , 秒 ) ? 旅 の 宿 , 吉 田 拓郎 ,3,56 


し ーーー/ 才 光 欠 寺 ファ アァ アイル の : 二 2 込 の </。- ェ = 


TYPE CDMusic 
SOn AS STRING * 20 
Sin と ger AS STRING * 20 


Min AS INTEGER 
SeC AS INTEGER 
END TYPE 


DIM CD AS CDMus ic 
OPEN "b:cd.rnd" FOR RANDOM AS #]1 LEN = LEN(CD) 


CLS 
INPUT "レコ ー ド 番号 ": Rec 
WHILE Rec > 0 
GET #1。 Rec。 CD マーー リ ー ド 
PRINT "曲名 "・ CD.Song 
PRINT "歌手 "5 CD.Singer 
PRINT "演奏 時 間 (分 。 徐 ) 叶 CD。Min: “<"< CD。Sec 
INPUT "レコ ー ド 番号 ": ・ Rec 
WwEND 
CLOSE #1 
END 
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レコ ー ド 番号 ? 2 

曲 名 旅 の 宿 

歌 手 吉田 拓郎 
演奏 時 間 ( 分 , 秒 ) 3 : 56 

レコ ー ド 番号 ? 1 

曲 名 季節 の 中 で 
歌手 松山 千春 
演奏 時 間 (〈( 分 , 秒 ) 3 : 15 

レコ ー ド 番号 ? 


思 ラ ンダ ム ・ フ ァイル の シー ケン シャ ヤル ・ ア クセ ス 





EIUZa : 1 件 1 件 の デー タ を 扱う に は ラン ダム ・ フ ァイル は 便利 で す が , 何 
件 も の デー タ を いち いち レコ ー ド 番号 を 指定 し て 扱う と いう の は 不 
便 で すね . 

2 し 二 ・ そ うい うと き は 。 ラン ダム ・ フ ァイル を シー ケン シャ ル に アク セス 
する と よい . 

EIUZa : シ ー ケ ンジ シャ ル ・ プ ァイル と し て 家 う と いう こと で すか 。. 

2 士 ・ い や 。 あく まで も ラン ダム ・ フ ァイル と し て 扱い 。 レコ ー ド 番号 を 
先頭 か ら 乏 次 進め て いく こと で シー ケン シャ ル な アク セス を し よう 
どう 9 ご 導 洒 。 
それ で は ,。 ラン ダム ・ フ ァイル の 先頭 か ら ア デー タ を シー ケン シャ ル 

に 書い て いく プロ グラ ム を 示 そ う . 










OPEN b: cd.rnd FOR RANDOM AS #1 LEN=LEN(CD) 


INPUT CD.Song, CD.Singer。 CD.Min。 CD.Sec 
WHILE LEFT$(CD.Song.。 1) く > ーー グ " 

PUT #1。。 CD 

INPUT CD.Song, CD.Singer,。 CD.Min,。 CD.Sec 
WEND 


々 25 


| 先生 :PUT #1,, CD の よう に レコ ー ド 番号 を 指定 せ ず に PUT を 行 う 





PUT #1,, CD 





レコ ー ド 番号 を 省略 する と 
次 の レコ ー ド 位置 に デー タ 
を フイ ト し ます - 





レコ ー ト 数 は , 
LOF(1) \ LEN(CD) 
で 求め られ ます . 





と , 次 の レコ ー ド 位置 に デー タ が 書き 出さ れる か ら , これ を くり リ り 返 
せ ば デー タ は シー ケン シャ ル に 書か れ て いく こと に な る . 
な お , ファ イル が オー プン され た 直後 の 書き 出し (読み 込み ) 位置 
は , ファ イル の 先頭 に な っ て いる . 

EIUZa : デー タ 入 力 の 終わ り の 判定 は , CD.Song く > “/”" で は いけ な い の 
で すか . 

2 て 士 ・ レ コー ド 型 の メン バ の 文字 列 は 固定 長文 列 な の で , この 例 の CD. 
Song は 20 文 字 の 長 さ の 文字 列 な の だ . だ か ら こ れ と “/" を 比較 し 
て も 等 し く は な ら な い 、. 

2 て 士 ・ そ れ で は , 次 に ラン ダム ・ フ ァイル の 全 デ ー タ を 先頭 か ら 返 次 読ん 
で いく プ ブログ ラム を 示 そ う ). 
ラン ダム ・ フ ァイル の レコ ー ド 数 は , LOF と LEN と いう 関数 を 使っ 
て 次 の 式 で 求め る こと が で きる . 





ファ イル 番号 一 レコ ー ド 
LOF(1) \ LEN(CD) 
ファ イル の サイ ズ し レコ ュー ド の サイ ズ 








や や ※ ぷ や に KK ミニ ーー 
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OPEN  b:cd.rnd FOR RANDOM AS #1 LEN=LEN(CD) 
Maxrec 三 LOF( 1 ) \LEN(CD) 


FOR Num ニ 1 TO Maxrec 
GET #1. Num, CD 


NEXT Num 


時 ラン ダム ハ ・ フ ァイル 版 CD 曲 目 フ ァイル 管理 プロ プラム 
元 に 示し た シー ケン シャ ル ・ フ ァイル 版 の CD 曲目 ファ イル 管理 プロ グラ ム 
を , ラン ダム ・ フ ァイル 版 に 作り 直し て み ま し ょ う . 
ラフ ラング ム ・ フ ァイル 版 の 特徴 は , . 指 定 レ コー ド の 内 容 を 更新 で き . る こと で す . 
まだ た , デー タ の 書き 込み と 読み 込み は 。 シー ケン シャ ル ・ ア クセ ス す る こと 
陸 し きま ぜ \. 





EIUZa : シー ケン シャ ル ・ フ ァイル 版 で は , デー タ の 新規 書き 込み と 追加 書 | 
き 込 み を 別 の 処理 に し て いま し た が , ラン ダム ・ フ ァイル で は 分 け | 
な く て も よい の で すか . 

先生 ・ ラ ング ダム ・ フ ァイル の オー プン は , OPEN 命令 の モー ド に RANDOM 
を 指定 し た ね . この モー ド が 唯一 つの モー ド で , シー ケン シャ ル ・ フ 
ァイル の よう に INPUT, OUTPUT, APPEND と いっ た モー ド の 区 
別 は な い の だ よ . 

EIUuZa : それ で は RANDOM と 指定 し た ラン ダム ・ フ ァイル に は 読み 込み , 書 
き 込 み , 追加 書き 込み が 自由 に 行え を る と いう こと で すね . 

2 年 ・ こ の プロ グラ ム の デー タ の 書き 込み 処理 の 部 分 で , 


SEEK 1, LOF(1 ) \ LEN(CD) + 1 
ファ イル 番号 し レコ ュー ド 番 号 


と いう 命令 が ある ね . この 命令 は ラン ダム ・ フ ァイル へ の 読み 込み / 
書き 込み 位置 を , SEEK の 第 2 パラ メー タ で 指定 し た 位置 に 移す も 
の な の だ . また LOF( 1 ) \ ぎ LEN (CD) + 1 は 現在 の ファ イル ・ エ ン 
ド の 次 の レコ ー ド 位置 を 指し て いる . 結局 これ に より , ラン ダム ・ 
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、 し たま 67 50688 1 
ea ド 数 


ファ イル R/W 位 置 


ヒ IUZ8 


2 生 





ファ イル へ の 読み 込み / 書 き 込 み 位置 は ファ イル ・ エ ンド の 次 の 
レコ ー ド 位置 に 設定 され る か ら ア ペン ド ・ モ ー ド に し た こと に な る . 


ファ イル ・ エ ンド 
2 n 三 LOF( 1) \ LEN(CD) 
。T 1 


・ フ ァイル を アペンド する の は わか っ た の で す が , これ で 新規 ファ イ 


ル の 書き 出し も で きる と いう の が ちょ っ と わか り ま せん . 


・ フ ァイル が 空 (新規 作成 時 ) な ら LOF ( 1 ) は 0 を 返す か ら , SEEK 


1, LOF (1 ) ぎ \ ぎ LEN (CD) 二 1 は , SEEK 1, 1 と な り 。 ちょ う 
と 第 1 レコ ー ド (つま り フ ァイル 先頭 ) か ら 書 き 出す こと に な る . 
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"---/7* CD ベス ト ・ コ レク ショ ン 管 理 プ ログ ラム (ラン ダム ・ フ ァイル 版 ) */--- 


TYPE CDMus 1C 
SOn9 AS STRING # 20 
Sin9ger AS STRING \ 20 
Min AS INTEGER 
SeC AS INTEGER 

END TYPE 

DIM CD AS CDMus1iC 


DO 
PR INT 
PRINT 
PR INT 
PRI NT 
PRI NT 
I NPUT 
SELECT CASE n 
CASE 1 
OPEN "b:cd.rnd" FOR RANDOM AS #1 LEN = LEN(CD) 
SEEK 1,。 LOF(1) \ LEN(CD) + 1 = 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 和 ) ": CD.Song. CD.Singer , CD.Min, CD.Sec 
WHILE LEFT$(CD. ON て アテ 書き 込み 
PUT #1。 。、 CD | だ つ 
"曲名 , 歌手 、 演 奏 時 間 ( 分 . 徐 ) “": CD.Song. CD.Singer, CD.Min、 CD.Sec 
CLOSE #1 
CASE 2 
OPEN "b:cd.rnd" FOR RANDOM AS #1 LEN = LEN(CD ) 
Maxrec = LOF( 1 ) \ LEN(CD ) 
CLS 
PRINT " 曲 名 I 歌手 ! 演奏 時 間 " 
[ ea + “ + ーーー“ 


FOR Num = 1 TO MaxreC 
GET 1. Nu 面 。 CD 
PRINT USING " 揚 革 革 "1 NU 男 : 5 
PRINT CD.Song: TAB(28): "1 "1 CD.Singeri TAB(50): "1  ": CD.Mini “":“": CD.Sec 
NEXT Num 
CLOSE #1 
CASE 3 
OPEN "b:cd.rnd" FOR RANDOM AS #1 LEN = LEN(CD ) 
INPUT "レコ ー ド 番号 ": Rec 
WHILE Rec > 0 - マン こい 
GET #1 。 Rec。 CD 」 Rec レ コー ド を リー ド し て 表示 
PRINT CD.Songi CD.Singer: CD.Mini ":": CD.Sec 
INPUT "曲名 , 歌手 , 演奏 時 間 ( 分 , 徐 ) ": CD.Song, CD.Singer , CD.Min。 Se 
PUT # き 1。 Rec。 CD 
N 。 WW コー ド 則っ た td 「 
sa は 4 全う Ac Rec レ コー ド の デー を 
CLOSE #1 新しい デー タ に 更新 
CASE ELS5E 
PRINI “" 野 わ り ま すず す 。。 。" 
END SELECT 
LOOP WHILEn< 4 
END 


ー か ら 志 択 し て くだ さい " 


し 3 
)! 
ピロ 


* ゃ ae 避 


* ポ 0 今 
と 。 
ま 琶 溶 


らい ー 
寺 いづ 
2 

か ・ 全 夫 
中 洒 SS+ 
Ni 還 1 】 っ 


坦 時 
) Sv 
し ! 


ーー->": nm ファ イル エン ド の 次 の 位置 に 


R/W 位 置 を 移動 





iM 
ァ 
$ 








欠 の メニ ュー か ら 有 選択 し て くだ さい 

1: デ ー タ の 青き 込み 

2: デ ー タ の 読み 込み 

3: デ ー タ 更新 

4: 終 了 

メニ ュー 番号 --->? 3 

レコ ー ド 番号 ? 2 

旅 の 宿 吉田 拓郎 3 : 56 

曲名 , 歌手 , 演奏 時 間 ( 分 , 秒 ) ? 思い 出 ま くら , 小 坂 恭子 ,。3,08 
レコ ー ド 番号 ? -1 


全 百 問題 解 和 









団 泊 問題 1 








「 ーー-/* 三角 模様 */--- 


CLS 
FOR K = 1 TO 10 
FOR J = K TO 10 
PRINT "ネリ * 
NEXT J 
PRINT 
NEXT K 


FOR K = 1 TO 10 
FOR J = 1 TO K 
だ RIN 夫人 
NEXT J 
PRINT 
NEXT K 
END 


ーー ニーー 


/ ニー ニー/* 出 て こい 最大 (改良 版 ) */ ニ ーー 










TNPUT "data " : MA 双 
NUM = 1 

FOR KK = 2 "TO 10 
TNPUT "data ">: ム 
TF ム > MAX "THEN 









NUM 
END IF 
NEXT 人 K 
PRINT NUM: "番目 が 最大 で その 仁 は ": MAX 
END 









と 


"ーー--/* サイ ン ・ コ サイ ン ・ カ ー プ */---- 


RD = 3.14159 / 180 
PRINT "angle Sin COS こ =1 


PRINT " Ere eoe 二 eu 


FOR N = 0 TO 360 STEP 15 
TS% = INT(40 + 10 * SIN(N * RD) ) 
TC%X = INT(40 + 10 * COS(N * RD) ) 

















N 



























wEND 


0 


INPUT 
wHILE D <> -9999 


0 


9 


SUM 


N 





ーー--/* 合計 と 平均 */--- 
SUM 





ata ": D 


= SUM + D 
N + 1 


INPUT "data ": D 


1 


= 


PRINT USING "#### 。 # 韻 。#### 。 ##。# 埋 ## り > Ni SINCN * RD)・ 


IF TS% = TC% THEN PRINT TAB(TS%) : "+" 
IF TSX < TC%X THEN PRINT TAB(TS を ): "* ま "< 
IF TS% > TC% THEN PRINT TAB(TC%) :』 "o"・: 
NEXT N 
END 


TAB(TC 多 ) : 
TAB(TS%) : 


」 0 LM 
HL」 率 し 





PRINT "合計 =": SUM 
PRINT "平均 =": SUM / N 
END 






COS(N * RD): 


練習 問題 解答 


練習 問題 
リーー-/* 暗号 を 作る */--- 


CLS 
A$ = "][ love you" 
FOR II = 1 TO LEN(A$) 

PRINT CHR$S(ASC(MID$(A$。 I。 1)) + まま 
NEXT 1I 
END 










練 澤 問題 


リー--/* アル ファ ベツ ト の 占 度 */--- 
DIM ALPHA(26) 


FOR KK = 1 IO 26 
ALPHA(K) = 0 
NEXI K 


READ A$ 
wHILE A$ < く > リリ / リ 
FOR 民 = 1 TO LEN(A$) 
B = ASC(MID$S(A$。 K。 1 ) ) 
IF 65 <= B AND B <= 90 THEN ALPHA(B - 64) = ALPHA(B - 64) + 1 
IF 97 <= B AND B <= 122 THEN ALPHA(B - 96) = ALPHA(B - 96) + 1 


NEXI K 
READ A$ 
wEND 
CLS 
FOR KK = 1 TO 26 
PRINTI CHR$S(K + 64)j』 "="5 ALPHA(K): 
IF K MOD 8 = 0 THEN PRINT 
NEX] K 


DATA "London bridge is falling down" 
DATA "falling down, falling down" 
DATA "/" 

END 


練 泊 問 題 ノ 
ーー-/* 相性 占い */--- 


wHILE 1 
INPUT "あな た の 名 前 ": As$ 
INPUT "彼女 の 名 前 ) b$ 
GOSUB URANAI 
PRINT A$: " と ":。 b$: “の 相性 度 =": AI 
PRINT 
WEIND 
END 





URANAI: 
SUM = 0 
A$: GOSUB KEISAN 
b$: GOSUB KEISAN 
SUM MOD 100 


O LEN(Z$ ) 
SUM + ASC(MID$S(Z$。 K。 1 ) ) 


RETURN 


242 


練習 問題 


ーー-/* ボー カ ・ カ ー ド を 配る */--- 
DIM Flag(4。 13) ,。 Kind$(4) 


%D18 革 
"ClIuUb し 


Kind$(1) = "Spade": Kind$(2) 
Kind$(3) = "Heart": Kind$(4) 


FOR k = 1 TO 4 
FOR j = 1 TO 13 
Flag(k。 j) = 0 
NEXT j 
NEXT k 


RANDOMIZE (VAL(RIGHT$(TIME$。 2) ) ) 


FOR j = 1 TO 3 
PRINT j: "番目 の 人 " 
FOR k = 1 TO 5 
DO 
Card = INT(4 * RND + 1) 
Num = INT(13 * RND + 1) 
LOOP WHILE Flag(Card。 Num) <> 0 
Flag(Card,。 Num) = 1 


PRINT Kind$(Card) : 
SELECT CASE Num 
CASE 1 
PRINT " Ace" 
CASE 2 TO 10 


PRINT Num 
CASE 11 
PRINT " Jack" 
CASE 12 
PRINT "Queen" 
CASE 13 
PRINT " King" 
END SELECT 
NEXT k 
NEXT j 


END 


乱数 列 の 自動 設定 


カー ド の 種類 

カー ド の 数 字 
既に 配 つ た カー ド か 判定 
配 つ た カー ド に 印 を する 


 ~-~--/* 相性 占い (プロ シー ジャ 版 ) */--- 





READ a$,。 b$ 
DO WHILE a$ <> 


PRINT 


READ a$,。 b$ 


9 / 0 
PRINT a$: "9 と "7": b$: " の 相性 度 =": Uranai(a$。 b$) 


DECLARE FUNCTION Uranai (a$。 b$) 


DATA "も tarTO"。 "hanako" 
DATA "ichirou"。 "mariko" 
DATA "jirou" "yuko" 


DATA 


FUNCTION Uranai 


SU 加 = 0O 


(a$。 b$) 


FOR kK = 1 TO LEN(a$) 


Sum 
NEXT k 


SuUm + ASC(MID$(a$, k, 1 ) ) 


FOR K = 1 TO LEN(b$) 


SU 
NEXT k 


SU + ASC(MIDS(b$。 k,。 1 ) ) 


Uranai = Sum MOD 100 


END FUNCTION 


練習 問題 解答 


練 澤 問題 10 


= ニ =/* は 3 サイズ デー ダ の ゾー ト */ ニ -ー- 


TYPE ThreeSize 
Namae AS STRING * 10 
bust AS INTEGER 
Waist AS INTEGER 
Hi p AS INTEGER 

END TYPE 


DIM Girl(50) AS ThreeSize 
CONST Num = 6 


FOR k = 1 TO Num 
READ Girl(k).Namae。 Girl(K).bust。 Girl(K).Waist,。 Girl(kK).Hip 
NEXT Kk 


FOR K = 1 TO Num - 1 
Min$ = Girl(kK) .Namae 
回 k 
FOR jj = K + 1 TO Num 
IF Girl(j).Namae < Min$ THEN 
Min$ = Girl(j).Namae 
S = j 
END !F ド 
NEXT j 
SWwAP Girl(KkK)。 Girl(S) 
NEXT K 


CLS 
FOR k = 1 TO Num 

PRINT USING "8 8 Ki Ei 

PRINT Girl(k).Namaei Girl(k).busti Girl(K).Waisti Girl(k).Hip 
NEXT k 


DATA "Candy"。80.60。、80。"Ann"。75。60。78 
DATA "Eluza".。81.65.。83。"Nancy"。81.63。77 
DATA "Nina"'.76.58.78。"Machilda"。83.65。81 
END 





「 ーー-/* サイ ン ・ コ サイ ン ・ グ ラブ */--- 


SCREEN 0: CLS 
Rd = 3.14159 / 180 


LINE (0。 0)=(0。 200) 。 5 座標軸 
LINE (0。 100)-(400。 100)。 5 
FOR x = 0 TO 360 STEP 5 
y = 100 - 8O0 * SIN(x * Rd) 
IF xx = 0 THEN 

EE お 岳 』 を 贅 。 『)。 3 


ELSE 
LINEE =ー( 丈 。 )。 3 
END IF 
LINE (XX。 100)-(X。 y)。 2 
NEXT xx 


END 





EE: 天 グラフィック 画 面 の ハー ド ・ コ ピー 法 


QB に は グラ フィ ッ ク 画 面 の ハー ド ・ コ ピー 機能 が あり ませ ん . そこ で , 次 の よう な 原理 
で ハー ド ・ コ ピー を 行う プロ シー ジャ Gcopy を 作り まし た . 
田 ハ ー ド ・ コ ピー の 原理 

FC し -9801 の VRAM の アド レス は &HA8000 (Blue プ レー ン ), &HB0000 (Red プ レー 
ン ), &HB8000(Green プ レー ン ) か ら そ れ ぞ れ 割 り 当 て られ て いま す . 

VRAM の 1 アド レス に 8 ビット の 情報 が 入っ て いて , それ は CRT 上 で 横 8 ビッ ト の デ 
ー タ に 対応 し て いま す . これ に 対し プリ ンタ の ドッ ト 列 印 演 で は , ピッ ト の 並び を 縦 に し 
な けれ ば な り ま せん . 





し だ たがっ て CRT の 左上 隅 か ら コ ピー を 「 7 ーー 
ie CODY 
する に は , ビッ ト 回 転 な どの 処理 を 施さ な 1 _ 
EE 5 " Ao0 VRAM の 1 アド レス に コト - 
けれ ば な り ま せん . そこ で 右上 隅 か ら 下 側 | 8 ビット の 情報 が 和 の 
ー " 「 っ て いる | 方 
に コピ ビー し て いけ ば , 図 は 90" 回 転 し ます ー 
和 ・ V 
が , 最も 単純 な 操作 で 済み ます . ee ーー リ R 
い 
リ 
| 
・ 
時 ハー ド ・ コ ピー・ プ ブ プロシージャ QGCODy 
DECLARE SUB Gcopy () 
DECLARE SUB Lputc (c%) 
DECLARE SUB Lputs (a$) 
SUB Gcopy グラフィック 画面 の ハー ドコ ビー 
Lputs CHR$(&H1B) + "T16" ′ 改行 幅 
Lputs CHR$(&H1B) + "D" ′ コピ ー・ モ ー ド 
FOR x = 8&H4F TO 0 STEP -1 
Lputs CHR$(&H1B) + "S0400" ' 8 ビッ トド ッ ト 対 応 
FOR y = 0 TO 399 
DEF SEG = 83HA800: a = PEEK(x + y * 8H50) ′。 Blue 
DEF SEG = 8&HBOOO: b = PEEK(x + y * 8&H50O) * Red 
DEF SEG = 8&HB800: c = PEEK(x + y * 8H50) ′ Green 


Lputc (a OR b OR C) 
NEXT y 
Lputc 8HD: Lputc 38HA ′ 改行 
NEXT X " 
Lputs CHR$(&H1B) + "A" ′ ノー マル 改行 帆 
Lputs CHR$(&H1B) + "M" ′ 通常 モー ド 
END SUB 


SUB Lputc (c%) ′ 直 援 プリ ンタ 出力 
WHILE (INP(&H42) AND 4) <> 4 
WEND 
OUT @&H40。 c% 和 
OUT 8H46。 14 
OUT 8H46。 15 
END SUB 


SUB Lputs (a$) 直接 文字 列 出 力 
FOR k = 1 TO LEN(a$) 
C% = ASC(MID$(a$。 k。 1 ) ) 
LputC C 先 
NEXT k 





付録 


田 使 用 万 法 

Gcopy プ ブ プロ シー ジャ の ソー ス フ ァ イル を Gcopy.BAS と し た と き , この ファ イル の 使用 
方 法 に は 次 の 2 つが あり ます . 
$ ソ ー ス レベ ル で の 使用 
し ノ サ プ フ ァ イ ル 常 駐 .… 
プロ グラ ム に Gcopy.BAS を 常駐 させ ます . 

ユー ザ ・ プ ログ ラム で Gcopy プ ロ シ ー ジ ャ を 使用 する に は , 単に , 

GCODY 

と し ます 。 
倫 ク ィ イッ クラ イブ ラリ に し て 使用 

Gcopy.BAS を し プラ イプ ブラ リ 作 成 .…| メ ニュ ー に より , クィ ッ ク 
ライ ブラ リ Gcopy.QLB に し ます . 





メニ ュー に より , 開発 中 の ユー ザ ・ 





@ ク イィ イッ クラ イブ ラリ の 作成 
BC B:\GCOPY .BAS/T/C:512: 
Microsoft (R) QuickBASIC KANJI Compiler Version 4.20 


(C) Copyright Microsoft Corporation 1982-1988。 
All rights reserVed . 


43527 Bytes AvVailable 
41633 Bytes Free 


0 Warning ErTrOT(S) 
0 SeVvere ErrOrY(S) 
LINK /QU GCOPY。B:\GCOPY .QLB,NUL,BQLB42.LIB: 


Microsoft (R) Overlay Linker Version 3.65 
Copyright (C) Microsoft Corp 1983-1988. All rightS reSserVved . 


LIB B:\GCOPY .LIB+GCOPY : 
Microsoft (R) Library Manager Version 3.08 
Copyright (C) Microsoft Corp 1983-1987. All rightS reSerVved . 


こう し て 作成 し た クィ ッ ク ラ イブ ラリ を QB 起動 時 の ルオ プション で 指定 し ます . 
OB ング L B:GCOPY 
これ で ライ ブラ リ が QB シス テム に 登録 され ます の で , ユー ザ ・ プ ログ ラム で Gcopy プ ブロ 
シー ジャ を 使用 する に は , 
CALL Gcopy 
しま すす 。 


Eduick BASIC の 言語 仕様 要約 





1 ブロ グラ ハ の 構成 
プ ブログ ラム の 各行 は 次 の 構成 と な り ま す . 
[ 行 識別 子 ) ステ ー ト メン ト [ : ステ ー ト メン ト ] [ココ メント] 


行 の 終わ り は で 示し , 1 行 に 最大 256 文 字 ま で 書け ます . 

1 行 に 復 数 の ステ ー ト メン ト (命令 文 ) を 書く こと が で きま す . この 場合 は ,。 各 ス テー 
トメ ント を コロ ン ( : ) で 区 切り ます . この よう に ,。 1 行 に 複数 の ステ ー ト メン ト を コロ ン 
(: ) で 区 切っ て 書く こと を , マル チ ・ ス テー トメ ント と いい ます . 
急行 識 別 子 

QB で は 従来 型 BASIC の よう な 行 番号 は 不要 で す . た だ し GOTO 文 の 飛び 先 と し て 行 の 
先頭 に 行 識別 子 を 置く こと が で きま す . 

行 蔵 別 子 と し て は 行 番号 (100, 200 な ど ) と ラベ ル (OWARI : な ど ) が 使用 で きま す . 
@ ス テー トメ ント (命令 文 ) 

ステ ー ト メン ト は ブロ グラ ム を 構成 する 単 一 の 仕事 を 記述 し た も の で , 命令 語 と オペ ラ 
ンド と か ら な り ま す . 命令 語 と は , IF, FOR,。 PRINT な どの BASIC が あら か じ め 定 め て 
いる 言葉 で す . オペ ラン ド に は , 定数 , 変数 , 関数 そし て これ ら を 演算 子 で 結ん だ 式 を 
指定 し ます . 


PRINT A 十 B 
鉛 令 語 。 オペ ラン ド 


ステ ー ト メン ト (命令 文 ) 


天 コ メン ト ' 上 ーー ーー ー 


コメ ント は 単 一 引用 符 (") に 続い て 書き 
ます . コメ ント の 開始 に 単 一 引用 符 (") を 
用 いた 場合 は : (コロ ン ) で 区 切る 必要 は 
あり ませ ん が , REM を 用 いた 場合 は : で 
区 切ら な けれ ば な り ま せん . 

Num=40 生徒 の 人 数 

Num=40 ・ REM 生徒 の 人 数 











固定 小数 点数 






文字 列 定 数 | “Helo". “日 本 語 " 





EE 計 語 
/。 邊 数 

ブ プログ ラム の 実行 中 に 変化 し な い 値 を 定 | 
数 と いい 。 右 の よう に 分 類 さ れ ま す . 








CONST を 使っ て 宣言 し た も の 
CONST MaxRec = 1 


記号 定数 



















- 単 精度 浮動 小数 点数 
ー 倍 精度 浮動 小数 点数 













3. 変数 


付録 


プロ グラ ム の 中 で 使う 値 を 格納 する た め の 箱 (実際 は メモ リ ) を 変数 と いい , その 箱 に 


付け る 名 前 を 変数 名 と いい ます . 
変数 名 は 次 の 規則 で 付け ます . 
・ 変 数 名 の 先頭 は 英字 で 始ま り ま す . 


・ 第 2 文字 以後 は 英字 , 数 字 . ピリ オド (. ) が 指定 で きま す . 


・ 変 数 名 の 長 さ は 最大 40 文 字 で す . 


・ 子 約 語 は 使用 で きま せん が それ を 含ん だ も の は か まい ませ ん . 


・FN で 始ま る 変数 名 は 許さ れ ま せん . 


・ 英 大 文字 と 英 小文字 は 同じ も の と し て 扱わ れ ま す . つま り , SUM, Sum, sum な ど 


は すべ て 同じ も の と し て 扱わ れ ま す . 


4。 型 
Quick BASIC に は 次 の よう な デー タ 型 が あり ます . 


基本 型 の サイ ズ と 扱え る 値 の 男 囲 は 以下 の と お り で す . 












2 計 ん と 全 肛 
( 単 精度) 整数 弄 - 
倍 丁 度 加 数 型 

清 度 実数 型 


倍 精 度 実数 弄 8 バイ ト | 


ーー 














扱え る 値 の 範囲 
ー32768 一 32767 ー 
ー2147483648 一 2147483647 
ー3.402823E+38 一 3.402823E 38, 
ー 1.797693134862316D+308 
ー 1.797693134862316D+308, 16 桁 


最大 32767 文 字 


( 単 精度 ) 整 数 弄 
ー 倍 長 整 数 弄 


- 単 精度 実数 弄 


倍 精 度 実数 型 


可変 長文 字 列 型 
固定 長文 字 列 弄 















5 







0. 演算 
BASIC の 演算 子 を 以下 に 示し ます . 
算術 演算 子 ーー 関係 演算 子 。 。 論理 演算 了 









べき 乗 
負 符号 
乗 算 


厨 定 

か つ 

ま 技 価 
排他 的 論理 和 
同値 

包含 


等 し い 
等 し く な い 

必 さい 

小さ いか 等 し い 
大 きい 

大 きい か 等 し い 


除 算 
加 算 
減 算 
整数 の 除算 
整数 除算 の 余り 





演算 子 に は 次 の よう に 優先 順位 が 決ま っ て お り , 優先 順位 の 高い 順に 演算 が 行わ れん ます . 
人 人 表 


か っ - で 囲ま れ た も の 
関数 
ー( 負 記号 ) 
*。 ン 





6. 式 


定数 , 変数 , 関数 を 演算 子 で 結び 付け た も の を 式 と い 
い , 次 の よう な 種類 が あり ます . 










 。 ーー 
関係 演算 子 (=, こく >, こ な ど ) 
NOT 
AND 
OR 
XOR 


1+A*SOR( 2 ) 


IF A>B THEN 一 
条件 式 








と も いう . 


IF A>B AND B>C THEN 一 


“Hello" 二 “BASIC" 





注 ) AND, OR な どの 論理 式 は 内 部 的 に は ビッ ト 演 算 を 行っ て いま す . また 関係 式 は 比 
較 の 結果 が 真 な ら ー|, 偽 な ら 0 と な り ま す . た と えば A>B が 真 (一 | :& 
HFFFF),。 B>C が 偽 (0 :&HO000) の 場合 A>B AND B>C は &HFFFF 
AND &HO000 が 行わ れ , ビ ピット ご と の AND が 取ら れ て 結果 は &HO000(0). つ まり 
偽 と な り ま す . 


文字 列 は 演算 子 寺 に よっ て 連結 する こと が で きま す . 
A$ = "Hello" 十 Basic 一 mA$ は "Hello Basic" 
A$= "Hello" : B$= “Basic" 

C③=A$ 十 こ 「 十 B$ 一 C$ は "Hello Basic" 


付録 


文字 列 の 大 小 は アル ファ ベッ ト 順 (辞書 順 ) に 行わ れ ま す . 正確 に いう な ら , 文字 の 大 
小 は その 文字 の アス キー・ コ ー ド の 大 小 で 区 別 さ れ ま す . 2 つの 文字 列 を 比較 し て いて , 
文字 列 の 片方 が 短く て 比較 が 途中 で 終わ っ た 場合 は , 短い 文字 列 の 方 が 小さ く な り ま す . 

だ た と そく ば 次 の よう な 大 小関 係 に な っ て いま す . 


"A" く "AA" く "AB" く "BT tt "Z" く "a" 
1 つの 文字 定数 お よび 文字 変数 で 扱う こと の で きる 文字 列 の 長 さ は 32767 文 字 以 下 で す . 
Quick BASIC で は 固定 長文 字 列 を サポ ー ト し ます . 固定 長文 字 列 の 比較 は 注意 が 必要 で 
す . 


DIM A AS STRING*10 
A = am 
IF A=“" グ ′ THEN て 


の よう な 比較 で は A の 内 容 が , 





と な っ て いる の で , “/” と 比較 し て も 一 致し ませ ん . 
/. 海馬 演 算 こ 型 変 換 
数 値 デ ー タ は , 異な る 型 同士 で も 混合 し て 演算 する こと が で きま す . こう し た 混合 演算 
で は 精度 の 高い 型 に 変換 され て 演算 が 行わ ん ます . た と えば , 
A#ー10# ン 3 
は , 10#/3# と し て 演算 が 行わ れ ま す . 
また だ た, 数 値 デ ー タ が 異な る 型 の 変数 に 代入 され る と き は 次 の よう な 規則 で 型 変換 され ま 
す . 
・ 整 数 型 変 数 一 実数 デー タ 
実数 デー タ が 整数 に 変換 され る 場合 は , 小数 点 以下 が 四捨五入 され ます . な お , 実数 
デー タ の 整数 部 が 一 32768 一 32767 の 範囲 を 越 を て いれ ば エラ ー が 起こ り ま す . 


A %=34.4 A% は 34 
B %=34.5 B % は 35 
・ 実数 型 変 数 一 整数 デー タ 





整数 デー タ が 実数 型 に 変換 され る 場合 は , .0 が 付加 され ます . 
・ 単 精度 実数 型 変 数 一 倍 精 度 実数 デー タ 
僅 精 度 実数 デー タ が 単 精度 実数 型 に 変換 され る 場合 は , 有効 桁 数 が 7 桁 に まる め ら れ 
ます 。 


いら 
AN、 | 


で 貞 


60. ステートメント 


Qunck BASIC の ステ ー ト メン ト と し て 以下 の も の が あり ます . 


BEEP 
BLOAD 
BSAVE 
CALL 
CALL ABSOLUTE 
CALL INTERRUPTX 
CALL INTERRUPT 
CALL INT860LD 
CALL INT86XOLD 
CALLS 
CHAIN 
CHDIR 
CIRCLE 
CLEAR 
CLOSE 
CLS 
COLOR 
COM ON/OFF/STOp 
COMMON 
CONST 
DATES$ 
DECLARE FUNCTION 
DECLARE SUB 
DEF FN 
DEF SEG 
DEF DBL 
DEF INT 
DEF LNG 
DEF SNG 
DEF STR 
DIM 
DO 一 LOOP 
DRAW 
END 
ENVIRON 
ERASE 
ERROR 
FIELD 
FILES 
_FOR 一 NEXT 


FUNCTION 一 END FUNCTION 
GET # 

GET 

GOSUB 

GOTO 

F 一 END IF 
INPUT 

INPUT # 

IOCTL 

KEY 

KEY ON/OFF/STOP 
KEY LIST 

KILL 

LET 

LINE INPUT # 
LINE INPUT 
LINE 

LOCATE 

LOCK 

LPRINT 

LSET 

MID$ 

MKDIR 
NAME 一 AS 
ON ERROR GOTO 
ON 一 GOSUB 
ON 一 GOTO 
OPEN 

OPTION BASE 
OUT 

PAINT 
PALETTE 
PALETTE USING 
PCOPY 

POKE 

PRESET 

PRINT 

PRINT USING 
PSET 

PUT 


PUT # 
RANDOMIZE 
READ 

REDIM 

REM 

RESET 
RESTORE 
RESUME 
RETURN 
RMDIR 

RND 

RSET 

RUN 

SCREEN 

SEEK 

SELECT CASE 
SHARED 
SHELL 
STATIC 

STOP 
SUB 一 END SUB 
SWAP 
SYSTEM 
TIME$ 

TIMER ON/OFF/STOP 
TROFF 

TRON 
TYPE 一 END TYPE 
VIEW 

VIEW PRINT 
WAIT 
WHILE 一 WEND 
WIDTH # 
WIDTH 

WIDTH LPRINT 
WINDOW 
WRITE # 


9. 組み 込み 閑 数 


付録 


関数 は , ( ) 内 に 与 そ た られ だ た デー タ (これ を 引数 と いう ) に 対し , その 関数 で 決め られ 


た 演算 処理 を 行い その 結果 を 関数 の 値 と し て 得る こと が で きま す . 


ユー ザ は DEF FN 文 で ユー ザ 関 数 を 定義 する こと が で きま す が , 以下 の も の が 組み 込ま 


れ た 関数 と し て あら か じ め 定 義 さ れ て いま す . 


ABS FREEFILE 
ASC HEX$ 
ATN INKEY$ 
CDBL INP 
CDBL$ INPUT\ 
CHRS INPUT$ 
CINT INSTR 
CLNG INT 
COMMAND$ IOCTL$ 
COS JIS$ 
CSNG KEXT$ 
CSNG$ KINSTR 
CSRLIN KLEN 
CVD KMIDS 
CVDMBF KPOS 
CVI KTN$ 
CVL LBOUND 
CVS LCASE$ 
CVSMBF LEFT$ 
DATES LEN 
ENVIRON$ LOC 
EOF LOF 
ERDEV LOG 
ERDEV$ LPOS 
ERL LTRIM$ 
ERR MID$ 
EXP MKD$ 
FILEATTR MKDMBF$ 
FIX MKI$ 
FRE MKL$ 


10. 流れ 制 人 又 


_ MKS$ 


MKSMBFS 
OCT「$ 
PEEK 
PMAP 
POINT 
POS 
RIGHT$ 
RTRIM$ 
SADD 
SCREEN 
SEEK 
SETMEM 
SGN 

JIN 

SPC 
SPACE$ 
SOR 
STR$ 
STRING$ 
TAB 
TAN 
TIMES 
TIMER 
UBOUND 
UCASE$ 
VAL 
VARPTR 
VARPTR$ 


VARSEG ーー 


Quick BASIC に は いく つも の ステ ー ト メン ト (命令 文 ) が あり ます が , その 中 で も 流れ 


制御 文 は プロ グラ ム を 作る 上 で 最も 重 要 な も の で す . 
園 楽 件 判断 
尋 ブ ロッ ク |IF 文 

ブロ ッ ク IF 文 の 典型 的 な 書式 は 次 の と お り で す . 


に 、 


IF 条件 式 THEN 


ELSE 


END IF 








次 の よう に ELSEIF 節 を 置く こと で , 複数 の 条件 判断 を 置く こと が で きま す . 


IF 条件 式 1 THEN 
ブロ ッ ク 1 交 還 間 」 
ELSEIF 条件 式 2 THEN 
|] ブロック 2 | 


ELSEIF 条件 式 3 THEN 
1 
ブロ ッ ク 3 


ELSE 


2  l 





END IF 


ELSEIF 節 や ELSE 節 は 置く も の が な けれ ば 省略 で きま す が , END IF は 省略 で きま せ 


ん . 
谷 従 来 型 IF 文 


挫 の よう に すべ て を 1 行 に 書き , 最後 に END IF を 置か な い 形 式 の IF 文 を 従来 型 IF 文 と 


呼び ます . 


IF 条件 式 THEN 文 1 ELSE 文 2 






| ブロ ッ ク 2 ツ ク 2 ー 











文 は マル チ ス テー トメ ント で 区 切れ ば 複数 書け ます が , 1 行 に 収まる 範囲 で す . 


一 多 万 加 分岐 


SELECT CASE 
CASE 


CASE 
CASE 
CASE 


END SELECT 





条件 式 
式 1 
2 ロッ 4 1 
2 
ブロ ッ ク 2 。 
式 n 
プロ ッ ク n 
ELSE 


1 プロッタ | 





付録 


田 く り 返 し 
所定 回 反復 


FOR ルー プ 変 数 = 初期 値 TO 最終 値 STEP きざみ 値 





_ 文 
しい キオ ・ :4 is 
NEXT ルー プ 変 数 
僅 前 判定 反復 
WHILE 条件 式 。 
プロ まき 症 
WEND 
DO WHILE 条件 式 。 
| プ ロッ タ | 





LOOP 


WHILE - WEND と DO WHILE - LOOP は 同じ 機能 で す . WHILE - WEND は 従 
来 型 BASIC に あっ た も の で , DO - LOOP は Quick BASIC で 新た に 導入 し た も の で す . 


DO UNTIL 条件 式 。 
プ ブロック CS 
LOOP 
谷 後 判定 反復 
DO 
ブロ ッ ク 
LOOP WHILE 条件 式 





DO 「 _ 放 当 

| ブロ ッ ク 

LOOP UNTIL 条件 式 
時 飛び 越し 
短 上 EXIT 文 


DO WHILE 条件 式 
IF 脱出 条件 THEN EXIT DO 


LOOP 


EXIT DO の 他 に EXIT DEF, EXIT FOR, EXIT FUNCTION, EXIT SUB が あり ます . 


旬 GOTO 文 


GOTO OWARI 


OWARI : 


注 ) 構造 化 ブ ログ ラミ ング と いう 考え 方 で は , GOTO 文 は プロ グラ ム の 流れ を わか り 
に くく 《 く する の で で きる だ け 使 わな いよ うに し て いま す . 
現に 本 書 の ブロ グラ ム で は GOTO 文 を 使っ て いま せん . 


11。 配列 
配列 は 同種 の デー タ を 配列 名 と 添字 (要素 番号 ) で 管理 する デー タ 構 造 の 1 つ で す . 
配列 の 義 字 が 1 つの も の を 1 次 元 配列 。 2 つの も の を 2 次元 配列 , 以下 , 3 次 元 , 4 次 
区 …… と 呼び ます . 配列 の 次 元 お よび 添字 は メモ リ の 許す 範 胃 で いく ら で も 指定 で きま す . 
配列 の 要素 は 通常 0 番 の 要素 か ら 始ま り ま す が , OPTION BASE 1 と 宣言 する こと で 1 
番 の 要素 か ら 始め る こと も で きま す . OPTION BASIC 文 は すべ て の 配列 に 対し て 作用 し 
ます 、 






ー 添字 の 上 限 を 宣言 する 
DIM A (10) 
配列 名 
- 添 字 ( そ え じ ) 
_x@o | wo | Xe | … | Ao 


11 個 用 意 さ れる 


OPTION BASE 1 


DIM A( 3, 4 ) DIM A( 3, 4) 





な お , Quick BASIC で は 配列 の 添字 を 次 
の よう に 部 分 範囲 指定 で きる こと に な り ま 
。 寺 。 





DIM 配列 名 (最小 値 TO 最大 値 , 最小 値 TO 最大 値 , …) 


付録 


12.、 レコ ゴー ド 弄 

配列 は 同じ 型 の デー タ を ひと か た まり に し た も の で す が , レコ ー ド 型 は 異な る 型 の デー 
タ を ひと か た まり に し た も の で す . 

レコ ー ド 型 の 定義 と レコ ー ド 型 変数 の 宣言 は 次 の よう に 行い ます 。 
@ レ コー トド ト 型 の 定義 





TYPE タグ 名 
メン バ 名 AS 下 名 
メン バ 名 AS 下 名 
END TYPE 


答 メ ン バ を 指定 する 型 名 は 次 の も の で す 


INTEGER ( 単 精度 ) 整数 型 
LONG 倍 長 整数 型 
SINGLE 単 精度 実数 型 
DOUBLE 倍 精度 実数 型 


STRING * 長 さ 文字 列 型 (固定 長 ) 
介 レ コー トド 型 変数 の 宣言 
DIM 変数 名 , 変数 名 … AS タグ 名 


代 メ ン バ の 参照 
レコ ー ド 型 変数 の 答 メ ン バ を 参照 する に は ピリ オド (. ) を 用 いて 次 の よう に 行い ます . 


レコ ー ド 下 変 数 名 . メ ン バ 名 


な お , レコ ー ド 型 変数 同士 の 代入 で は , メン バ 単 位 の 代入 と 全 メ ン バ の 一 括 代 入 と が 行 
ん ます 。 


13. 変数 の 型 宣言 
変数 の 型 宣言 の 方 法 と し て 以下 の も の が あり ます . 
@ 変 数 名 の 後に 型 宣言 文字 を 付加 する 
A$, A% の よう に 変数 名 の 後に 型 宣言 文字 を 付加 し て , その 変数 の 型 を 宣言 する こと が 
で きま す . 型 宣言 文字 と し て 以下 の も の が あり まず 
%%  ( 単 精度 ) 整 数 型 


& 倍 精度 整数 型 
| 単 精度 実数 型 
# 倍 精度 実数 型 
$ 文字 列 型 


注 ) A26, A&,。 Al AL A$ は すべ て 異な る 変数 で す 


へ っ 
〇 


免 宣言 文 を 使っ て 宣言 する 













宣言 子 変数 名 変数 名 , … AS 型 名 


…… ( 単 精度) 千 数 弄 


。。。。。。 画 52 LON …… 倍 精度 整数 型 
REDIM 。 …… 動 的 配列 の 再 定義 SINGLE …… 晶 精 度 実 数 型 





トー SHARED …… ブロ シー ジャ 間 の 共用 DOUBLE 0 …… 倍 精 度 実 数 型 
STATIC _ …… ロー カル 変数 STRING 。 …… 可変 長文 字 列 型 
STRING * 長 さ ……… 固 定 長文 字 列 型 

タグ 名 0 …… ユー ザ 定 義 型 

(レコ ー ド 型 ) 






DIM A AS STRING*10 
… 変 数 A を 長 さ 10 文 字 の 固定 長文 字 列 型 変数 と し て 宣言 . 





倫 イ ンプ リシン ッ ト 宣 言 
DEFtyp 文 に より デフ ォ ル ト 時 の デー タ 型 を 設定 で きま す . 


「DEFINT 
DEFLNG 
DEFSNG ! 
DEFDBL 
DEFSTR | 


アル ファ ペッ トー アル ファ ベ ペット 





DEFINT 1I-N 
…!CN で 始ま る 変数 (Jac。 Man な ど ) を 整数 型 と し て 扱う こと を 宣言 


注 ) 型 宣言 文字 (2%%,&, !, 間 $) は DEFtyp 文 に 対し 常に 
優先 し ます 


14、 サブ ルー チン 
サ プ ル ー チ ン は , ある ひと か た まり の 処 
理 を 記述 し た 小 プ ログ ラム と 考え る こと が 
で きま す . サブ ルー チン は GOSUB 文 に ょ よ 
り 必要 に 応じ て 呼び 出す こと が で きま す . 
サブルーチン の 入口 は 行 番号 また は ラベ ル 
で 管理 され ます . サブ ルー チン の RETUR 
N 文 が 実行 され る と , GOSUB 文 の 次 の 文 
に 戻っ て きま す . サブ ルー チン か ら 別 の サ 
プ ブルー チン を 呼び 出す こと も で きま す . | ABC: サブ ルー チン 
この プロ グラ ム が 実行 され た と き の 流 れ 1 ーー 
を 右 図 に 示し ます . 





Abca( ),n 
アド レス 渡し 


SUB Abc(b( ),m) 


付録 


15. プロ シー ジャ (手続 き ) 


Quick BASIC で は , 従来 型 サ ブ プルー チン の 欠点 を 改良 し た 新しい タイ プ の サブ ルー チン 
を 提供 し ます . この 新しい タイ プ の サブ ルー チン を プロ シー ジャ (手続 き ) と 呼び サブ 
ルー チン ・ プ ブロ シー ジャ と 関数 プロ シー ジャ が あり ます . 
時 サブ ルー チン ・ プ ブ プロシージャ 

DECLARE SUB プロ シー ジャ 名 ( 仮 引数 , 仮 引数 …) 
プロ シー ジャ 名 実 引数 , 実 引数 … 





ーー 
旨 : 





呼び 出し 


SUB プロ シー ジャ 名 ( 仮 引 数 , 仮 引 数 ・ り ) =ーーー プロ シー ジャ 本 体 の 定義 





プロ シー ジャ 本 体 - 
END SUB 
時 関数 プロ シー ジャ 
DECLARE FUNCTION プロ シー ジャ 名 ( 仮 引 数 , 仮 引数 …) 宣言 





A= テ プロ シー ジャ 名 ( 実 引数 , 実 引数 …) = 





呼び 出し 


FUNCTION プロ : シー ジャ 名 ( 実 引数 , 実 引 数 …) = ョ ーーー プロ シー ジャ 本 体 の 定義 
プロ シー ジャ 名 = 値 


ーーー エ ーー ニーーーー- 二 ェ ー ーー 一 一 一 - ー ニ ーーーーーーー ーーーーーーーーーー ーー ニーー 


END FUNCTION 





証 ーー ニー ーー ニー ーー 


園 引数 渡し 
る き 参 照 に よる 呼び 出し (call by reference) 

(Quick BASIC の プロ シー ジャ 間 の 引数 渡し は , 原則 的 に は 参照 に よる 呼び 出し で 行わ れ 
ます (トト 左 図 参照 ). 

参照 に よる 呼び 出し で は 実 引数 の アド レス が 仮 引数 に 渡さ れ , プロ シー ジャ 側 で は この 
アド レス を 元 に 呼び 出し 元 の 仮 引 数 を 参照 し ます . し た が っ て プロ シー ジャ 側 で 引数 の 値 
を 変更 する と , 呼び 出し 側 の 引数 の 値 も 変化 する こと に な り ま す . 
信人 値 に よる 呼び 出し (call by value ) 

仮 引数 を 式 と し て 与え る こと に より , 値 に よる 呼び 出し を 実現 で きま す . 式 と は n 十 1., 
5 ,。 (n) な ど で す . ( ) を つけ れ ば 式 に で きる こと に 注意 し て くだ さい ( ト 右 図 参照 ). 


Abc (n) 


値 が 渡さ れ た の と 
同じ 効果 に な る 


SUB Abc( m ) 








坂 引数 を 式 と する こと で その 値 が 一 時 的 な アド レス に 記憶 され , その アド レス が 実 引数 
に 渡さ れる こと に な り ま す . し た が っ て , プロ シー ジャ 側 で m の 値 を 変え て も 。 呼び 出し 
側 の n の 値 は 変化 を 受け ませ ん . 

値 に よる 呼び 出し は , 再帰 プロ シー ジャ を 記述 する 際 に 使い ます . 

時 再帰 的 ブロ シー ジャ 

目 分 目 身 の プロ シー ジャ の 中 か ら 自 分 自身 を 呼び 出し て いる 構造 を 再帰 的 プロ シー ジャ 
と 呼び ます . 

再帰 的 プロ シー ジャ で は , 再帰 か ら の 脱出 条件 を 必ず 付け な けれ ば な り ま せん . 

SUB Abc( 仮 引数 , …) 

IF 脱出 条件 THEN 再帰 か ら 脱出 

Abc 実 引数 , … ーー 再帰 呼び 出し 
END SUB 


16. スコ ー ブ 


変数 (ある い は 記号 定数 ) の 内 容 を 参照 で きる 範囲 。 スコ ー プ (通用 範囲 : 
と 呼び ます . 

会 来 型 BASIC の 変数 は すべ て グロ ー バ ル 変 数 で し た が , Quick BASIC で は グロ ー バ ル 
と ロー カル の 2 種類 が 指定 で きま す . 





・ 一 般 的 な 変数 は ロー カル 変数 で す . 
ロー カル 変数 は , それ が 宣言 (使用) 


| CONST Rd=3.14159180 [ レー_ グロ ー バ ル 定 数 


さ れ て い る プロ ン 一 ッ / "や の 中 で だ は け | DIM SHARED Lpx. Lpy ーー キーーーー グロ ー バ ル 変 数 
「 | (プロ グラ ム の 全域 で 有効 ) 
FOR K=1 TO 10 
*・ メ イン ルー チン に お いて 。 DIM SH 電 ロー カル 変数 
宣言 され て いる プロ シー ジャ の 中 
ARED で 宜 言 され か - 恋 ロー ノ ヾ で だ け 有 効 . し た が っ て この 3 つの 
り で 家 言 され た 変数 は グ K は 各々 別 の も の と し て 扱わ れる / | 


ル 変 数 で す . グロ ー バ ル 変 数 は プロ 
グフ ラム の 全域 で 有効 で す . 

・ メ イン ルー チン で 宣言 され た 記号 定 
婦 は グロ ー バ ル 定 数 で す . SUB あ る 
い は FUNCTION プ ロジ シー ジェ ャ の | acnow 
中 で 宣言 され た 記号 定数 は ロー カル FOR K=1T0 10 
定数 で す . | 


- 同 じ も の と し て 扱わ れる 


LDX 
Lpy 


| END FUWCTION 





プロ グラ ム 


付録 


1/. プラ フィ ックス 


較 グ ラフ ィ ッ ク 座 標 

グラ フィ ックス 処理 で は , ワー ルド 座標 。 オリ ジ ナ ル ・ ス クリ ー ン 座標 。 スク リー ン 座 
標 と いう 3 つの 座標 を 扱っ て いま す . 

LINE や CIRCLE で の 作図 は ワー ルド 座標 に 行わ れん ます . ワー ルド 座標 の どの 範囲 を 
CRKT ディス プレ イ へ の 表示 男 囲 に する か を WINDOW 文 で 指定 し ます . この 範囲 を ウイ ン 
ドウ と 呼び ます . 

CRKT ディス プレ イ 上 の 表示 寺 囲 は VIEW 文 で 指定 し ます . この 範囲 を ビュ ー ポ ー ト と 呼 
び ま す . CRKT デ ィ ス プレ イク の 堪 隅 上 の 点 を (0, 0) と する 座標 を オリ ジ ナ ル ・ ス クリ ー ン 
座標 と 呼び ます . 

CLS ま だ た は CLS 1 で 消さ れる 範囲 は ビュ ー ポ ー ト の 中 だ け で す . 


ン オ リ ジ ナ ル ・ ス クリ ー ン 座標 


CRT デ ィ ス プレ イ 


(639, 399) 





Quick BASIC で は , WINDOW 文 に よる ウイ ンド ウ の 切り 方 に 2 通り の 方 法 が あり ま 
す . WINDOW 文 に SCREEN オプ ショ ン を 付け る と , 下方 を Y 座 標 の 正 の 向き と する ワー 
ルド 座標 を を その まま の 向き で ビュ ー ポ ー ト に 取り 出し , SCREEN オプ ショ ン を 付け な い 
と , Y 方 向 を 逆転 し て ビュ ー ポ ー ト に 取り 出し ます . 


WINDOW (一 50, - 100) WINDOW SCREEN (一 50. - 100) 
ー( 500, 150 ) ー( 500, 150 ) 





田 男 面 モ ー ド 

画面 モー ド は テキ スト ・ モ ー ド , グラ フィ ッ ク ・ モ ー ド ,。 テキ スト ・ モ ー ド と グラ フィ ッ 
グ ク ・ モ ー ド を 同時 に 表示 する スー パー イン ポー ズ ・ モ ー ド に 分 か れ ま す . さら に , グラ フ 
ィ ッ クモ ー ド は ドッ ト 構 成 で 640X200( 低 解 像 ) と 640 x 400 ( 高 解 像 ) に 分 か れ ま す . 


へ っ 


これ ら の 画面 モー ド は SCREEN 文 で 指定 し ます . 


SCREEN 画面 モー ド 

L_ ag1 … テ キス ト 

- 84 …640X200 スー パー イン ポー ズ 
- 87 …640X400 グラ フィ ッ ク 

88 ま た は 0…640X400 スー パー イン ボー ズ 





SCKEEN 0 が 実行 され た 直後 の ウイ ンド ウ と ビ ピュー ポー ト は , 


WINDOW SCREEN (0, 0)ー (639, 399) 
VIEW (0, 0) 一 (639, 399) 


が 指定 され だ た の と 同じ 状態 で す . 


還 表 示 色 
使用 で きる 表示 色 の 種類 は SCREEN 文 で 指定 する パレ ッ ト ・ モ ー ド に より 異な り ま す . 





SCREEN 画面 モー ド , パレ ッ ト ・ モ ー ド 

1 …16 色 中 16 色 . 色 番 号 0 て 15 

2 …64 色 中 16 色 . 色 番 号 0 て 63 

3 …4096 色 中 16 色 . 色 番号 0 て 4095 





LINE や CIRCLE で 指定 する 色 は , 実際 の 色 番 号 で は な く 〈 く 属性 番号 (0 一 15) で 行い ます . 
PALETTE 属性 番号 , 色 番 号 
4095 





| レダ ドコ モー ド 1 





属性 番号 と 色 番 号 は PALETTE 文 に た 
対応 げ け られ て いま す . 


一 明る い 色 





注 ) デジ タル ・ デ ィ ス プレ イ で は 0 7 だ けが 
表示 で きま す 
時 アク ティ ブ ・ ペ ー ジ と ディ スプ レイ ・ ペ ー ジ 
アク ティ フ ・ ペ ー ジ は グラ フィ ッ ク デ ー タ を 書き 込む 画面 ,。 ア ディ スプ レイ ・ ペ ー ジ は CRT 
ディ スプ レイ に 表示 する 画面 で ,。 SCREEN 文 に より 指定 し ます 





SCREEN 画面 モー ド , パレ ッ ト ・ モード, アク ティ ブ ・ ペ ー ジ , ディ スプ レイ ・ ペー ジ 


付録 







LINE( 100. 100 ) - (200., 200 ) - 十 


CRT デ ィ ス プレ イ 


注 ) 640X200 モ ー ド で は 0 3 の 4 画面 が 指定 で きま す .」 








168。 ファ イル 処理 


圏 ファ イル の 種類 

BASI し で 才 える ファ イル は シー ケン シャ ル ・ フ ァイル と ラシン ダム ・ フ ァイル の 2 つ で す . 
シー ケン シャ ル ・ フ ァイル は デー タ を ファ イル の 先頭 か ら 順 次 リー ド ノ プラ イト し て いく 
も の で す . 

1 件 の レコ ー ド の 長 さ は 可変 長 で あっ て も か まい ませ ん (下図 左 ). 

これ に 対し ラン ダム ・ フ ァイル は , 任意 の レコ ー ド 位置 の デー タ を リー ドブ プラ イト する 
こと が で きま す . 1 件 の レコ ー ド の 長 さ は 固定 長 で な けれ ば な り ま せん (下図 右 ). 






シー ケン シャ ル ・ フ ァイル 


ーー ーー ーー ーー 


レコ ー ド 1 レコ ー ド 2 


デー タ は ファ イル の 先頭 か ら リ ー ド プラ イト する 









| ラン ダム ・ フ ァイル 


前 | 年 寺 












任意 位置 の 
レコ ー ド を 


リー ドン ノラ 
イト で きる 





較 フ ァイル の オー ブン と ファ イル 番号 
ファ イル の オー プン に より , ファ イル 名 で 示さ れる ファ イル を , 指定 し た ファ イル 番号 
で 処理 で きる よう に な り ま す , 





INPUT 、 
OPEN  “d: filename.typ FOR 1OUTPUT{ AS れ jn 
APPEND 』 L ファ イル 番号 
OPEN “d : filename.typ” FOR RANDOM AS # LEN= レ コー ド 長 





オー プン ・ モ ー ド の 意味 は 右 表 の と お り で す . 
ファ イル へ の デー タ 処 理 が 終了 し た ら . 」 すでに 作ら れ て いる ファ イル か ら デ ー タ を 読む 


' | 新規 に ファ イル を 作成 し デー タ を 書く 
CLOSE #n 、 すでに ある ファ イル の 後に デー タ を 追加 書き 込み 
前 。 ファ イル を クロ ー ズ し て ファ イル 番 ラン ダム ・ フ ァイル と し て リー ド プ ライ トモ ー ド 





号 を 解放 し ます . ーーーーーーーーー 
時 シー ケン シャ ル ・ フ ァイル の リー ド ノ ラ イト 

ファ イル ・ オ ー プ ン さ れ て いる ファ イル に 
は , ファ イル 番号 を 通し て デー タ を リー ドン ノ 
フィ オト し ます . 

ファ イル を リー ド し て いっ た と き 。 ファ イ 
ル の エン ド は EOF 関数 で 調べ ます . EOF(n) 
は ファ イル 番号 nm の ファ イル が ファ イル ・ エ 
ンド ながら 具 ( 一 1) を 表し ます 。 し た か が っ て ヤツ  】 - [ 
ァイル ・ エ ンド まで ファ イル か ら デ ー タ を リー ド す る に は 次 の よう に 書き ます . 


# n( フ ァイル 番号 ) 


ンー ケン シャ ル ・ フ ァイル 


ファ イル 処理 の 窓口 





WHILE NOT EOF(n) 


INPUT #.。 
WEND 


較 ラ ンダ ム ・ フ ァイル の リー ド ノ ラ イト 
フン ダム ・ フ ァイル は , 指定 し た レコ ー ド 番号 の デー タ を 即座 に リー ド ノ ラ イト する こ 
が な きま すず す 










レコ ー ド 番号 # n( フ ァイル 番号 ) 


| デー タ ーー 





GET# n, Rec. 


PUT # n, Rec. 、 ' | 
ーー | ラン ダム ・ フ ァイル 
| ファ イル 処理 の 窓 ロ 


TYPE CDMusic 
Song AS STRING * 20 
SInger AS STRING * 20 
Min AS INTEGER 
Sec AS INTEGER 
END TYPE 





DIM CD AS CDMusic 





レコ ー ド の 長 さ は , 
LEN( レ コー ド 型 変数 名 ) 
で 求め られ , ファ イル の サイ ズ は は , 
LOF( フ ァイル 番号 ) 
で 求め られ る の で , ラン ダム ・ フ ァイル の レコ ー ド 数 は , 
LOF( フ ァイル 番号 ) \ LEN( レ コー ド 型 変数 ) 
で 求め られ ます . 
し た が っ て , ラン ダム ・ フ ァイル (ファ イル 番号 n) の ファ イル ・ エ ンド の 次 に リー ド ノ 
ライ ト 位 置 を 移動 する に は , 
SEEK n, LOF(n) \ LEN( レ コー ド 型 変数 名 )+ 1 
し 二 各 . 


の OPEN “cd.rnd" FOR RANDOM #1 LEN=LEN(CD) 


ファ イル R/W 位 置 








SEEK 1.Maxrec 十 1 Maxrec 三 LOF( 1) \ LEN(CD) 








民 双 で 】 主要 ステ ー ト メン ト / 関 数 一 覧 
本 書 で 説明 し た ステ ー ト メン ト / 関 数 を 中 心 に その 使用 方 法 の 要約 を 紹介 し ます . この 他 に も 0Ouick 

BASIC の ステ ー ト メン ト / 関 数 が いく つか あり ます の で , それ ら に つい て は マニ ュ ア ル を 参照 し て くだ 

さい . 

( 主 ) 全 印 の も の は 本 書 の 本 文 で は 説明 し て いな いも の で す . 

また 算術 関数 に つい て は , ここ に は 載せ て いな い の て 本文 を 参照 し て くだ さい . 


一 般 命名 
| coMMoON 


CONST 
DECLARE 





_| 変数 Lpx, Lpy は モジ ュー ル 内 の すべ て の プロ 

シー ジャ で 共通 に 使用 で きる こと を 宣言 し 
て いま す . 
記号 定数 Rd を 定義 し ます . 


プロ シー ジャ Disp の 宣言 





COMMON SHARED Lpx, Lpy 





















CONST Rd = テ 3.14159 / 180 
DECLARE SUB Disp(A$, Num ) 













DEF FNABC(X, Y) = ニ XX 十 Y*※Y 関数 FNABC(X. Y) を % 二 Y: と し て 定義 し ま | 
す 
















PRINT FNABC(1. 2) 1“ 十 22 の 結果 の 5 が 表示 され ます . 


| 関数 FNMax は 引数 A_B の うち の 大 きい 方 
を 返し ます . 


DEF FNMax(A, B) 
IF A>B THEN 
FNMax ニ A 
ELSE 
FNMax =B 
END IF 
「 END DEF 
















A と |I--K で 始ま る 変数 は 整数 型 と な り ま す . 
INT: 整数 型 LNG : 倍 長 整数 型 SNG : 単 精度 
| 実数 型 DBL : 倍 精 度 実数 型 
| STR: 文字 列 型 


4 ム | DEFINT/LNG/SNG | DEFINT A. 1-K 


/DBL/STR 














DIM A(100) A(O) ン A(100) の 配列 を 宣言 し ます . 
DIM B(2, 3) 次 の よう な 2 炊 元 配列 を 宣言 し ます . 


DIM C( 一 2 TO 1.5TO 7) 





J ぐ 5 の 間 ル ー プ を くり 返し ます . 





DO WHILE J ぐ 5 


LOOP 











J が 5 に な る まで ルー プ を くり 返し ます 』 


DO UNTIL J=5 
| が 5 に な っ た と き ル ー プ を 抜け ます . 





| LooP 














DO J ぐ 5 の 間 ル ー プ を くり 返し ます . 


LOOP WHILE J ぐ 5 


















J が 5 に な る まで ルー プ を くり 返し ます . 』 
| が 5 に な っ た と き ル ー プ を 1 回 実行 し て か 
| ら 抜 け ま す . 


DO 


LOOP UNTIL J=5 


END 


END DEF 

END FUNCTION 
END IF 

END SELECT 
END SUB 


END 「YPE 
EXIT _ DEF 


DO WHILE 条件 
EXIT DO 

LOOP 

EXIT FOR 

EXIT FUNCTION 


| EXIT SUB 





FOR TO STEP 
>>NEX 生 






NEXT J 


NEXT A 


FOR J ニ 1 TO 5 
FOR K= ニ 1 TO 
NEXT K 

NEXT 』 

FUNCTION FUNCTION Sum 

END FUNCTION 





Sum ニ [ ] 
END FUNCTION 





G 〇 SUB 


OSUB ABC 
RETURN 


ABC・ 


RETURN 


1000 ABC 
RETURN 





4 ム | GOTO GOTO OWARI 


| OWARI : 


式 


IF 脱出 条件 THEN 





FOR J ニ 1 TO 10 


FOR A 三 STOO STEP -0.5 


10 


(a( ) ) 






| サブルーチン プ ブルー チン | 





GOSUB 1000 


GOTO 1000 


1000 








ラベ ル OWARI で 示さ れる 位置 へ 分 岐 し ます . 





プロ グラ ム の 終了 宣言 
関数 定義 の 終了 
関数 プロ シー ジャ の 終了 
| ブロ ッ ク IF の 終了 


| SELECT CASE の 終了 


サブルーチン ・ プ ブ プロシージャ の 終了 


レコ ー ド 定義 の 終了 


_DEF FN 関数 か ら 抜 け ます . 


DO ルー プ か ら 技 け ま す . 


「 FOR ルー プ か ら 技 け ま す . 


関数 プロ シー ジャ か ら 技 け ま す . 
サ プ ブ プルー チン ・ プ プロシージャ か ら 技 け ま す . | 
J を 1 か ら 始 め 1 き ざ み で 10 に な る まで , 


FOR と NEXT で 囲ま れ た 部 分 を くり 返し ま 
才 )。 





A を 5 か ら 始 め ,-0.5 き さ み で 0 に な る まで 
くり 返し ます . A の 値 は 5, 4.5, 4…1, 0.5, 0 
と 変化 し ます . 


2 重 ル ー プ で す . 外側 の ルー プ が 1 回 まわ る 
ご と に 内 側 の K ル ー プ は 10 回 まわ り ま す . 


し た が っ て , 5 Xx10 回 くり 返し が 行わ れ ま 
す . 


関数 プロ シー ジャ Sum の 定義 . 
Sum に 代入 され た [の 値 が 戻り 値 に な り ま 
語 | 


ラベ ル ABC で 示 され る サブ ルー チン へ 分 岐 
| し ます 。 サ プル ー チ ン の RETURN に より , 


GOSUB の 次 の 文 に 戻り ます . 


1000 行 の サブ ルー チン へ 分 岐 し ます . 





1000 行 へ 分 岐 し ます . 


| OPTION BASE 


SELECT CASE 


| END SELECT 













IF THEN IF A>0 THEN 









A>0 な ら プ ロッ ク A を , そう で な いな ら プ 

















) | プ ブロック A | ロッ ク B を 実行 し ます . 
ra ELSE | 
ELSGE フロ ッ ク B 

) END IF 


















END IF 
|  A>80 な ら ブ ロッ ク A を , 
「 そう で な く て A> と 70 なら ブロ ッ ク B を, 
で そう で な く て A シ 60 な ら ブ ロッ ク C を , 
それ ら 以 外 な ら プ ロッ ク D を 実行 し ます . 


| IF A>80 THEN 









ELSEIF A>70 THEN 
| | デア ロッ グ 明 . 
ELSEIF A60 THEN 












END IF ーー 
IF A>0 THEN S ニ =S 十 A 












| も し A>0 な ら S=S+TA を し ます ・ 
従来 型 IF 文 . - " ーー | 
変数 A が 使用 する バイ ト 数 を 返し ます . 


IF _ THEN 
ELSE 
LEN 

【 関 数 】 

ON GOSU 日 





LEN(A) 


















N の 値 が 1 な ら ABC, 2 な ら AAA, 3 な ら XYZ | 
の サブ ルー チン へ 分 岐 し ます . ラベ ル で な 
く 行 番号 を 書く こと も で きま す . 

N の 値 が 1 な ら ABC, 2 な ら AAA, 3 な ら XYZ 
で 示さ れる 位置 へ 分 岐 し ます . ラベ ル の 代 
わり に 行 番号 で も か まい ませ ん . 
配列 の 添字 の 下限 を 1 に し ます . つま り . 
DIM(10) と し た と き , A(1)^- ン と A(10) が 確保 さ 
| 乱数 の 種 (seed) を < 式 > で 示さ れる 値 で 設定 
| し ます . < 式 > の 値 は -32768- ン 32767. 

| < 式 > を 省略 する と 入力 要求 が あり ます . 
READ 文 が 実行 され る と , DATA 文 の デー タ が 
順次 読ま れ て いき ます . つ まり ,A に 5,B に 10, 
C$ に “Basic…‥… と いう 具合 で す . 変数 と デ | 
ー タ の 型 が 一 致し て いな けれ ば な り ま せん 」| 
また READ 文 の と ころ の 変数 の 数 に 対し デ 
ー タ が 少な い 場 合 は “Out of DATA" エ ラー が 
発生 し ます 。 。 
コメ ント を 書き ます . 





ON N GOSUB ABC. AAA. XYZ 














ON 








| ON N GOTO ABC, AAA. XYZ 















| OPTION BASE 1 



















RANDOMIZE | RANDOMIZE 〔 式 〕 





















| READ A, B, C$ 
READ D. E 


_READ- と DATA 






_DATA 5, 10, “Basic", 11, 6 

























FOR K=1 TO 5 "ルー プ 
READ A, B, C " 
RESTORE 
READ X, Y 


| REM 
| 活 だ は 
RESTORE 





READ 文 で 読む デー タ 位 置 を プロ グラ ム 中 の 
DATA 文 の 先頭 位置 か ら に 指定 し ます . X, Y 
に は 8, 9 が リー ド さ れず 5, 6 が リー ド 
され ます 、 | 





| DATA 5, 6, 7 
DATA 8, 9 







ラベ ル MOON 位 置 に 書か れ て いる DATA 文 の | 
先頭 か ら デ ー タ を 読み 出し ます . 

1 N が 1 の と き プ ブロ ッ ク A 
2--10 の と き ブ ロック B 

10 よ り 天 きい と きま プロ ッ ク C 

それ 以外 の と き ブ ロッ ク D 







_RESTORE MOON 












SELECT CASE N 
CASE1 
ブロ ッ ク A 
CASE 2 TO 10 


) 





















を 実行 し ます . 
CASE IS > 10 
CASE ELSE 
_- ーー | END SELECT_ ーー 還 還 還 ーー ー 
STOP_ ーー _ | ブロ グラ ム の 実行 を 一 時 中 断 し ます . 





電 ーー ーー ーーー 丁 SUB DismpOWL Nem) | サブ ルー チ ジ < プロ シー ジャ Disp を 定 ヒ 


ーーEND SUB | ます . 
|SWAP |SWAPAB _ | 変数 A と B の 内 容 を 交換 し ます . 





A と B の 内 容 を 整数 部 3 桁 , 小数 部 1 桁 で 


PRINT USING PRINT USING "## 電 .#": Ac: 
ーー ーー = 出力 し ます . 


 A の 内 容 を ### で ,B の 内 容 を #### で 出力 | 
ます 。 


"の 中 の 一 般 文 字 (#, 1! & 十 一 な ど 以 外 ) 
ほ は その まま 測 力 され ます 、 


& と & で 囲ま れ た 空白 の 個数 +2 の 文字 列 を 
| 因 力 し ます . 


| 5 個 の 空白 を と り ま す . 







画面 の 左 か ら 6 つの 位置 に 表示 位置 を 移し 
まき 






TAB で 取 ろ うと し た 位置 が , 








す 9 。 





文字 烈 操作 関数 


A=ASC(“A") 


















アス キー コー ド 65 の 文字 を A$ に 得 ま す . 





数 値 255 の 16 進 表現 で ある 文字 列 FF を A$ に 
得 ます . 





J=INSTR(“"Hello", “"e") 





この 例 で は 2 で す . 





A$ の 5 番目 の 文字 位置 か ら IF を 探し , その 
位置 を J に 得 ま す . 見 つか ら な けれ ば 0 を 
| 2 語 し ます . 


| J= ニ INSTR(5, A$, |F") 





















"日 本 " を 捜し , その 人 置 (3) を 得 ま す . 
INSTR の 日 本 語 対応 版 


J= KINSTR(“ab 日 本 cd", “日 本 ") 
| N= テ KLEN('ab 日 本 c") 
| えま す . この 例 で は 5 が 返さ れ ま す 。. 
B$= ニ KMID$(“abc 日 本 de", 4, 3) MID$ の 日 本 語 対応 版 . この 例 で は “日 本 d" 
が 取り 出さ れ ま す . 





B$=LEFT$(“"BASIC", 3) 






この 例 で は “BAS" が B$ に 入り ます . 





N テ LEN("BASIC") 


現在 の 表示 位 | 
置 よ り 左 に 入り 込む 場合 は , 改行 が され ま 


A" の アス キー コー ド を A に 得 ま す . 


Hello の 中 か ら e を 捜し その 位 置 を J に 得 ま す . 


LEN の 日 本 語 対応 版 . 日 本 語文 字 を 1 と 数 


文字 列 の 左 か ら 3 つの 文字 を 取り 出し ます | | 


文字 列 の 長 さ (5) が , N に 得 ら れ ま す . 


もう 





文字 列 の 左 か ら 2 文字 目 か ら 3 文 字 を 取り 
出し ます . 
この 例 で は “ASI" が B$ に 入り ます . 


B$ 王 MID$("BASIC". 2. 3) 



















数 値 10 の 8 進 表現 で ある 文字 列 12 を A$ に 得 
ます . 


OCT$ A$ ニ OCT$(10) 













RIGHT$ B$=RIGHT$(“BASIC", 3) | 文字 列 の 右 か ら 3 文字 を 取り 出し ます . 
この ) 島 で (は よ "SIG" が BE$ も に 入り ます | 
4 ム | SPACE$ B$="A" 十 SPACE$(10) +"B" | 0 文字 の 空白 を 得 ま す .B$ は "A_ 






B と な りり ます. 
Namae, Bust。 Waist。 Hip を ジャ どど すず す る し 
コー ド 型 Three Size の 定義 . | 












L 生 4 ンコ 
END TYPE 






TYPE Three Size 

| Namae AS STRING ※*10 
Bust ASINTEGER 
Waist AS INTEGER 
Hip AS INTEGER 

END TYPE 











DIM Girl AS ThreeSize Three Size 型 の 変数 Girl の 宣言 . 









| 」 有 5 の 間 . WHILE と WEND で 囲ま れ た 範囲 を 


WHILE J ご 5 
・ | くり 反し ます . 





| WEND 









INPUT A 


ーー | A が -9999 で な い 間 く り 返 され ます . WHILE 
WHILE A< >-9999 


を 使っ た デー タ 入 力 ル ー プ は この よう な 2 
度 読み を 行う の が 定石 で す . 






INPUT A 
| WEND 


2 度 読み 










無限 ルー プ に な り ま す . WHILE の 後 の 式 に 
0 以外 の 値 を 書く と 無限 ルー プ に な り ま す . 








WHILE 1 






キー ボー ドン スク リー ン 制 件 


全 | CSRLIN Y ニ CSRLIN 





現在 の カー ソル の 行 位置 ( Y 座標 ) を Y に 与 
えま す . ーー 
キー ボー ド か ら 1 文字 入力 し ます . 

キー 入力 が な けれ ば “ "(ヌル ) 文字 を 返し 
ます .。 | ー 
キー ボー ド か ら デ ー タ を 入力 し ます . 














INKEY$ A$ ニ INKEY$ 


【 関 数 】 



















INPUT "data"" A. B$ 


data ? 50, Hello |」| 
INPUT "data", A, B$ 


| data 50, Hello|_| 


「 LOCATE Y. X 





















ーー だ が か がら デー ナカ を 入力 し ます 、 7 は 
表示 され ませ ん . 














| カー ソル を 画面 の (X,Y) 位置 に 移動 し ます . 


| LOCATE 


人 WY 


ーーーーー デ ーーーーーーーーーー 一 一 称 = 


LOCATE ,,,8.15 







カー ソル の 大 き さ を 下 半 分 ( 画 ) に し ます . 
下端 位置 
一 上 端 位置 


















X ニ POS(O) 現在 の カー ソル の 水平 位置 ( X 座標 ) を X に 


与え ます . 





| PRINT A. B 


PRINT " 来 "] 
PRINT "" 
PRINT 

A$ ニ STR$(123) 
A$=STRING$(10.“ エ ") 

















Al|STRS 。 ーー 


半 ーー 
プラ フィ ッ ンク 画 面 制御 


CIRCLE 






| CIRCLE(100. 100). 50 


50W | 
ee の 100) 
CIRCLE( 100, 100), 50, 1 


| RD=3.14159/180 
CIRCLE(100, 100) , 50, 1 
.45 玉 RD, 135 *※ RD 


135 
1GIRCLE(100. 100)。 50.,,、0.5 












CLS 







COLOR 


6 一 15 | 0 一 7 の 革 いら 


















| 数 値 123 を 文字 列 に し ます . 






描く 色 は COLOR 文 で 指定 され て いる 色 . 








 Y 方 向 に 比率 0.5 で つぶ し た 村 円 を 描き ます . 
テキ スト 画面 .。 グラ フィ ッ ク 画 面 の ビュ ー 


| グラ アイ ンク モ ー ド で な る ' 


カン マ (, ) で 区 切っ た デー タ は 14 文 字 の 間 
隔 が と られ て 出力 され ます . な お , 数 値 デ 


ー タ は 両 わ き に 1 文字 分 の 空白 が と られ ま 
す . 


| セミコロン (:) で 区 切っ た デー タ は 横 に 並 
| 胡 . で 回 管 きれ ます 。 | 


| 文字 デー タ の 両 わ き に は 空 百 は と られ ませ 


ん . 


PRINT 文 の 最後 に : が ある と 印字 位置 は 改 | 


行 さ れ ま せん .PRINT の み の 文 は 改行 を お こ 
な いま す . 


・+" を 10 個 分 の 文字 列 に し て , A$ に 得 ま 
す . 


| 文字 列 "123" を 数 値 に 変換 し て A に いれ ま 
1 吉 。 


中 心 (100, 100) で 半径 50 の 円 を 描き ます . 


上 と 同じ も の を 青色 で 描き ます . 
45 135 の 間 の 円 紀 を 描き ます . 


ポート 内 を クリ ア し ます . 


テキ スト 画面 。 グラ フィ ッ ク 画 面 の 全体 を 
「 クリ ア し ます . 


グラ フィ ッ ク 画 面 の ビュ ー ポ ー ト 内 を クリ 


ア し ます . 


ます . 


テキ スト 画面 お よび グラ フィ ッ ク 画 面 の 表 


示 色 を n で 示さ れる 色 に 設定 し ます . 


_16 て 31 は 0 て 15 の 点 減 



























テキ スト 画面 の ビュ ー ポ ー ト 内 を クリ ア し 


や 


ji 抽 ー " 


SCREEN 





(0, 0) 一 (100. 


ni 
(100,.100) 


LINE (0,0) 一 (100, 100), 1 
LINE (0,0) 一 (100, 100), 4 


(0,0) | ] 
(100, 100) 


LINE (0, 0) 一 (200, 0), 1,, &HCCCC 


| (0.0) か ら (100. 100) に 直線 を 引き ます . 
色 は COLOR 文 で 設定 され た 色 で す . 






上 と 同じ も の を 青色 で 引き ます . 
B な ら Box を BF な ら さ ら に Box の 中 を 浴 り 
本 






| ライ ンス タイ ル &HCCCC( 点 線 ) で 示さ れる 
線 を 引き ます . 





@ む ーーー 一 - 人 の 
| (0.0) (200.0) 
LINE 一 (100, 100), 1 


。 ン * ゴーーLP 位 置 


(100, 100) 
ーSTEP(100, 100), 1 





現 LP 仁 置か ら (100.100) の 点 に 直線 を 引き 
| ます. 








朝 LP 位 置か ら X 方 向 に 100. Y 方 向 に 100 進 ん 
だ 点 に 直線 を 引き ます . | 














_| 境界 色 5 の 図形 内 の 点 (100.100) を 中 心 に 
し て , この 図形 の 内 部 を 色 1 で 塗り ます . 


CIRCLE (100.100). 50. 5 
| PAINT (100,100), 1, 5 













PRESET (200, 100) の 位置 の 点 を 消し ます . 
(200, 100) の 位置 に 色 5 (水色 ) の 点 を 打ち 
| ます . ーー 
| スク リー ン の 画面 モー ド を 設定 し ます . 
| mode スク リー ン モ ー ド 






























SCREEN mode[ . palete, apage, vVDage | 
mode 








81 ワキ スト F | paletB パレ ッ ツ + ト モ ー ド 
84 640X200 ス ーー パー イ シン ポー ズ Dage アク ディ プ ・ ペ ー ジ 
87 640 メ 400 グ ラフ ィ ッ ク | vpage ディ スプ レイ ・ ペ ー ジ 










640X400 ス ー ノ パー イン ポー ズ 


16 色 









aDage, VDage 
モー ド 84…03 





ディ 4 プレ イ 画 面 上 の ビュ ー ポ ボー 
(100, 100) 一 (320, 200) に 設定 し ます . 









(100.100) 





(320.200) 









ワー ルド 座標 の (一 320, 200) 一 (320, 200)_ 
を ウィ ンド ウ に 設定 し , Y 方 向 を 反転 し て 
ピュー ポー ト に 写し ます . 





_ WINDOW 















Y 
| ワー ルド 座標 
WINDOW SCREEN 
(一 320, 一 200) 一 (320, 200) 
(一 320. 一 200) 







ワー ルド 座標 の (一 320, 一 200) 一 (320. 200) | 
を ウィ ンド ウ に 設定 し , Y 方 向 を その まま 
で ビュ ー ポ ボ ポート に 写し ます . 









| (320.200) 
『Y 







ファ イル 制御 


CLOSE 





_INPUT # 


LINE INPUT # 


WRITE # 


CLOSE #1 





| CLOSE #1, #2 ー 
| WHILE NOT EOF(1 ) 


INPUT #1, A 


| WEND 
| 所 1 共 1。 fi、. る 8 


| GET #1.. a 


INPUT #1.A. 


| LINE INPUT #1.A$ 
| N= ニ LOF(1) 


OPEN “b : teldat" FOR 


INPUT AS #1 


OPEN “"b : tel.dat" FOR 
OUTPUT AS #1 


OPEN “"b : tel.dat'" FOR 
APPEND AS #1 


| OPEN "b : tel.rnd" FOR 


RANDOM AS #1 LEN ニ LEN (CD) 


_SEEK #1. 


| SEEK #1, LOF(1)\LEN(CD) 十 1 


| WRITE #1.A.B 





| ファ イル 番号 1 の ファ イル を クロ ー ズ し ま 
| す . 


ファ イル 著 号 1 2 を クロ ー ズ 

ファ イル 番号 1 の ファ イル ・ エ ンド (EOF) 
に な る まで デー タ を 読み 込み ます . 

EOF( ) は ファ イル ・ エ ンド で 真 を 返し ます 


の ァ イ ル 番 号 1 の フ ァイル の 第 n レコ ー ド 
の デー タ を 変数 a に リー ド . ラン ダム ・ フ 
アァ イル の リー ド 


ファ イル 番号 1 の ファ イル の 現在 の R/W 位 
赴 の レコ ー ド の デー タ を 変数 a に リー ド 
ファ イル 番号 1 の ファ イル か ら デ ー タ を A, 


B に 読み 込み ます . シー ケン シャ ル ・ フ ァ 


「 CR コー ド ま で の 1 行 を 一 括 し て A$ に 読み 込 
み ま す . 骨 - 
ファ イル 番号 1 の ファ イル の サイ ズ を バイ 


ト 数 で 返し ます . 


ドラ イブ b の teldat ファ イル を 入力 モー ド 


で ファ イル 番号 1 と し て オー プン し ます . 


| 上 と 同じ こと を 出力 モー ド で オー プン し ま 
| す 


| 上 の 同じ こと を 追加 モー ド で オー プン し ま 


す . 


ドラ イブ b の tel.rnd フ ァイル を ラン ダム フ 
ァイル と し て ファ イル 番号 1 で オー プン し | 


ます , 
レコ ー ド の サイ ズ を LEN に 与え ます . 


ファ イル 番号 1 の ファ イル の 第 n レコ ー ド 
| に 変数 a の デー タ を ライ ト . ラン ダム ・ フ 
- アイル へ の ライ ト . 


ファ イル 番号 1 の ファ イル の 現在 の R/W 位 
上 直 の レコ ー ド に , 変数 a の デー タ を ライ ト . 


#1 で 示さ れる ラン ダム ・ フ ァイル の 現在 の 


R/W 位置 を 第 n レコ ー ド に 移し ます . 


R/W 位置 を ファ イル ・ エ ンド の 次 の レコ ー 
』 位置 に 移 し ま す . 


] ファ イル 番号 1 の ファ イル に デー タ AB を 
書き 出し ます . シー ケン シャ ル ・ フ ァイル 


の テイ ト 。 


"で 


/< 


| 回 用 


AUTOEXEC.BAT 





【 ア ルフ ァ ベ ッ ト 】 


_ ASCII コ ー ド 


っ アス キー・ 
A ム TUK 

ワー プロ ソフ トー 太郎 に 付属 し て いる 日 本 語 
エン ド ・ プ ブロ セッ サ )、。 


コー ド 


FEF ( プ 


MS-DOS の 起動 時 に 目 動 的 に 実行 され る バ パッチ フ ァ イ 


| ル 、 


C 


1972 年 頃 . デニ ス ・ リ ッ チ ー に より DEC 社 製 の ミニ コン 


PDP-11 上 で 動く UNIX (ユニ ックス ) の た め の 記 述 言語 と 


し て 開発 され た . 構造 化 プ ログ ラミ ング が 行い や すく , 


実用 性 に 富ん だ 言語 . 
CUONFIG.SY ら 8 


MS-DOS の 環境 (ファ イル 数 , バッ ファ 数 .。 デバ イス ド 


ライ バ の 組み 込み な ど ) を 設定 する ファ イル . MS-DO0S 起 


動 時 に この ファ イル が 読ま れ , 環境 設定 が 行わ れる . 


EX ファ イル 


MS-DOS 上 で 実行 可能 な プロ グラ ム フ ァ イル . 


FORHMAT 


フロ ッ ピ ビー ディ スク や ハー ド デ ィ スク に 対し フォ ー マ 


ッ ト を 行う た め の MS-DOS コ マン ド . 
GOTD レ スプ ブロ グラ ム 


プロ グラ ム の 流れ を わか り に くく する GOTO 文 を 使わ 

_ な いで 書く プログラム. 
し 位置 

Last referenced Point. LINE, CIRCLE な どの グラ フィ ッ 


ク 命令 で 図形 を 書い た と き に , 書き 終わ っ た 最後 の 座標 
は LP 位 置 と し て 内 部 的 に 記憶 され て いる . 


D ら シェ ル 


現在 実行 中 の プロ グラ ム を メモ リ 上 に 残し た まま . 一 


時 的 に D0S に 戻る こと を 0S シ ェ ル と いう . EXIT コ マン ド 
に より 元 の プロ グラ ム に 戻る こと が で きま る. 
- ら SWITCH 


メ モリ, RS-232C な どの 設定 を 行う た め の MS-DOS コ マ 


〆 ト 。 


VHRHAM 


Video RAM. 画 像 デー タ が 格納 され て いる RAM で , 個々 
の デー タ が スク リー ン (CRT) 上 に 表示 され て いる 。. 


ー ド 化 さ れ て コン ピュ ー タ 内 部 に 記憶 され て いる . 


イル ・ オ ー プ ン 時 に APPEND を 指定 する こと で , 


り , ビュ ー ボ 
の よう な も の な の で ウイ ンド ウ と 呼ぶ 
| ウォ ッ チ 機能 


用 語 唐 説 


【 あ 行 ) 


アス キー・ コ ー ド 

34」 や 「 0」 な どの 文字 は , 1 バイ ト の 整数 値 に コ 
この | 
コー ド の 規格 に , ASCII コ ー ド , EBCDIC コー ド , JIS コ ー ド 


な ど が ある . 
アペンド 


ファ イル の 終わ り に デー タ を 追加 し て いく こと . ファ 
人 あ | 


トド モー ド に 大 る 二 る が で きゃ る 。 


_ アル ゴリ ズム 


問題 を 角 く た め の 論 理 や 手順 を アル ゴリ ズム (Algor- 


ithm) と いう . 一 般 に ある 問題 を 解く た め の ア ル ゴ リ ズム 
は 複数 存在 する が , 
コン ピュ ー タ 向き で は な いと ころ に プロ グラ ミン グ の 難 


人 間 向 き の ア ル ゴ リ ズム が 必ず し も 


し さ が あ る . 


アン ドウ ゥ 機能 


エディ タ を 用 いた 編集 作業 に お いて , 直前 に 修正 し た 


内容 を 無効 に し , 修正 前 の 状態 に 戻す 作業 . OB の エディ 
タ で は , | GRPH |+ 
_ 隙 線 処理 





国 


立体 を 描く と き , 前 方 の 面 の 後ろ に 隠れ て 見 えな い 線 
を 消す こと . 
イン タプ リタ 

「PRINT "Hello"」 な どの BASIC の 言葉 を 1 行 ず つ 読み 取 
り , その 意味 を 解釈 (通訳 ) し , それ を 行う た め の イ ン 
タプ ブリ タ 内 に 組み 込ま れ た サブ ルー チン を コー ル し な が | 
ら , ソー ス ・ ブ ログ ラム の 実行 を 逐次 行っ て いく 方 式 の 


で アン ドッ ゥ 機能 が 行え る . 


処理 プロ グラ ム . 


イン デン ト 
字 下 げ . プロ グラ ム の プ ブロック 構造 や 繰り 返し 構造 を , 
人 間 が 見 た と き に わか りや すく する た め , 書き 出す 先頭 


| 位置 を ブロッ ク ご と に 右 に 下げ て いく こと 
入れ子 


っ ネス ト 


ウイ ンド ウ 


グラ フィ ッ ク 和 処理 に お いて , ワー ルド 座標 か ら 切 り 取 
ー ト 内 に 表示 する 範囲 、 ち ょ うど の ぞ き 窓 


デバ ッ グ 時 に , 変数 や 式 の 値 を ウォ ッ チ ・ ウ イン ドウ 


_ に 刻々 表示 する 機能 . 


| エディタ 

ソー スプ ログ ラム を ディ スク 上 に ファ イル と し て 格納 
し た も の を ソー ス ・ テ キス ト (ソー ス ・ フ ァイル ) と 呼 
び 。 この ソー ス ・ テ キス ト を 作る シス テム プロ グラム を 
| エディタ と 呼ぶ . 一 種 の ワー プロ と 考え て も よい 、. 
演算 子 
a 十 b の 十 の よう に , デー タ を 演算 (計算 ) する た め 
に 使用 され る 記号 . 算術 演算 子 , 関係 演算 子 , 論理 演算 
_ 子 な どの 種類 に 分 けら れる . 
オー ト ・ イ ン デ ント 

エディ タ で ソー ス ・ テ キス ト を 作っ て いく < く とき. 1 行 
の 入力 が 終わ り リ ター ン キ ー て 次 の 行 に 移っ た 際 . その 
行 の 開始 先頭 が 前 の 行 の 先頭 位置 に 自動 的 に 設定 され る 
ーー ド 。 
オン ライ ン ・ ヘ ルプ 

ブロ グラ ム の 作成 中 (オン ライ ン 状 態 ) に 調べ た い 情 
報 の ヘル プ 画 面 を 呼び 出せ る 機能 . 


【 ガ 行 】 





階層 ディ レク トリ 
ファ イル の 数 が 増え た り , ユー ザ (ディ スク の 共通 利 


用 者 ) が 増え る と , 単 一 つの ディ レク トリ で は 管理 し きれ 


な い . そこ で ルー ト ・ デ ィ レ クト リ の 下 に いく つか の サ 
フ デ ィ レ クト リ を 設け , 各 サ プ ブ ディレク トリ 単位 で ファ 
イル 管理 を 行え る よう に し た ディ レク トリ 構造 . 
型 変換 

数 値 デー タ に 関し て , 整数 一 実数 , 実数 一 整数 の よう 
に 実 な る 型 に デー タ を 変換 する こと を 型 変換 と いう . 型 


40 イ し の 。 

仮 引数 

。 プロ シー ジャ の 定義 側 に 書く 引数 で .。 プロ シー ジャ の 
呼び 出し 側 か ら の デー タ を 受け 取る も の . 

カレ ント ・ デ ィ レ クト リ 

_ 現在 作業 の 中 心 と な っ て いる サブ プ デ ィ レ クト リ . 
カレ ント ・ ド ライ ブ 

| 現在 作業 の 中 心 と な っ て いる ディ スク ・ ド ライ ブ _A> 


と いう プロ ンプ ト な ら ド ライ ブ A が カレ ント ・ ド ライ ブ 


で ある こと を 示す . 

環境 変数 
MS-DOS の 環境 を 設定 する た め の 変 数 で , COMSPEC. 
PATH。LIB な ど が あり , SET コ マン ド を 用 いて 設定 する . 
関係 演算 子 

大 きい , 小さ い , 等 し いな どの 大 小関 係 を 比較 する 演 
算 子 . 
関数 





与え られ た デー タ (引数 ) に 対し 処理 (計算 ) を 行い , 


その 結果 を 返す 処理 機能 単位 算術 関数 , 文字 列 処理 関 
数 な ど が ある . 


付録 
記号 定数 
3.14 な どの 定数 (リテラ ル 定 数 と いう ) を , CONST 
PAI=3.14 の よう に 意味 の ある 名 前 (PAI) と し て 定義 し た 
も の . 
基底 
配列 の 基底 要素 は ディ フォ ルト で 0 か ら 始 まる . 


OPTION BASE 文 また は 部 分 範囲 指定 に より 0 以外 か ら 配 


列 要素 を 始め る こと が で きる . 
局所 的 変数 


その 変数 が 使わ れ て いる プロ シー ジャ の 中 だ け で 有効 | 


な 変数 . 同じ 名 前 の 変数 で あっ て も プロ シー ジャ が 異な 
れ ば 別 の も の と し て 扱わ れる . ロー カル 変数 と も いう . 


近代 的 流れ 制御 文 


GOTO 文 を 使わ ず に ブロ グラ ム を 記述 で きる よう に す 


_ る た め に 導入 され た 流れ 制御 文 (ブロ ッ ク IF, 前 判定 反 | 


復 , 後 判定 反復 , 複数 条件 判断 な ど ) を 総称 し て 近代 的 


_ 流れ 制御 文 と いう . 


イッ ク ・ ラ イブ ラリ 

Quick BASIC の 統合 環境 に 組み 込ま れる ライ ブラ リ を 
クイ ッ ク ・ ラ イブ ラリ と いう 。 これ に 対し 。 独立 し て 使 
用 され る ライ ブラ リ を スタ ンド ・ ア ロン ・ ラ イプ ブラ リ と 
いう 


くり 返し 文 


指定 され た 回 数 また は 条件 の 間 . ある 処理 を くり 返す 
制御 文 . DO WHILE て LOOP (前 判定 反復 )、 DO ン WHILE_ 
LOOP ( 後 判定 反復 ). FOR て NEXT (所 定 回 反復 ) が あ 


る 


グロ ー バ ル 変 数 
変換 は 異な る 型 の 変数 へ の 代入 や , 混合 演算 に お いて 行 


ブロ グラ ム の 全域 で 使用 で きる 変数 . 大 域 的 変数 と も 
いう . 


構造 化 プ ログ ラミ ング 


オラ ンダ の ダイ クス トラ (E.W.Dijkstra) が 提唱 し た プ 


ログ ラミ ング の 方 法論 . 構造 化 プ ログ ラミ ング は , 明確 


な アル ゴリ ズム と デー タ 構 造 の 上 に 立っ て , 問題 を トッ 
_ プ ・ ダ ウン て 機能 分 解 し , 連接 (sequence), 判断 (if el 
se), 反復 (while) と いっ た 明確 な 制御 構造 だ け を 用 いて 
プロ グラ ミン グ (goto レ スプ ログ ラミ ンダ ) す る こと に ょ よ | 
り , 生産 性 が 高く , 信頼 性 の 高い プロ グラ ム を 作成 し よ 


うと する も の で ある 。. 


後 判定 反復 


ルー プ の 終末 で 終了 条件 を 判定 する タイ プ の くり 返し 


構造 . DO て LOOP WHILE, DO て LOOP UNTIL が 後 判定 反復 


| を 行う 制御 文 . 
固定 長文 字 列 
| 格納 で きる 文字 列 の 長 さ を 固定 長 に し た も の . 
コ ・ ブ プロ セッ サ 
っ 数 値 演算 コ ・ プ ロ セ ッ サ 
百 演 算 


型 の 異な る デー タ が 式 の 中 に 混ざっ て いる 場合 の 演算 


通常 は 高い 型 に 変換 され て 演算 が 行わ れる . 
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コン バイ ラ 


プロ グラ ム を 全体 に 渡っ て 一 括 解 釈 し ,。 コン ピュ ー タ 


| が 理解 で き る 機械 語 コ ー ド に 翻訳 する 方 式 の 処理 プロ グ 


ラム . 


さ 行 】 





再帰 的 (recursive : リカ ー シ プ ) な 構造 と は , 自分 自身 
(n 次 ) を 定義 する の に , 自分 自身 の 部 分 集合 (n 一 1 
次 ) を 用 い , さら に その 部 分 集合 は より 低 次 の 部 分 集合 
を 用 いて 定義 する と いう こと を くり 返す 構造 で ある . 


再帰 的 ブロ シー ジャ 


ブロ シー ジャ の 中 か ら 再 び 自 分 自身 を 呼び 出し て いる 
構造 の プロ シー ジャ . 


サブ ルー チン 


長い | 本 の ブログ ラム は 一 般 に わか り に くい し , 同様 
な 処理 が あちこち に あら われ る こと が ある . そこ で , あ 


_ る 処理 機能 単位 を ひと か た まり に し て , メイ ン ル ー チ ン 


か ら 切 り 離 し , 必要 に 応じ て メイ ン ル ー チ ン か ら 呼 び 出 
世 る よう に ずる 有三 と が で まき る.。 これ に より 。 デ ログ ラム 


が すっ きり 書け る し , 重複 する 処理 を まとめ る こと が で 
きる 。 この 切り 離し た ブ プログ ラム を サブ ルー チン と いう . 
参照 に よる 引数 渡し 


実 引 数 の アド レス を 仮 引数 に 渡す こと に より , プロ シ 


式 

変数 定数 , 関数 な ど を 演算 子 で 統合 し た も の を 式 と 
し の 。 
シー ケン シャ ル ・ フ ァイル 

デー タ (レコ ー ド ) を ファ イル の 先頭 か ら 終 わり に 向 
か っ て 順次 書い た り 読 ん だ りす る ファ イル . 途中 の デー 
タ を 即座 に 読ん だ り 書 いた りす る こと は で き な い . 


字 下げ 


っ イン デン ト 
辞書 順 

文字 の 大 小 は アス キー・ コ ー ド で 決め られ て お り , 数 
字 く 英 大 文字 く 英 小文字 く カ ナ , の 順に な っ て いる . さ 


ら に その 中 も , アル ファ ベッ ト 順 , アイ ウエ オ 順 に アス 
キー・ コ ー ド が 設定 され て いる . BASIC の 文字 列 は 辞書 順 


また は その 逆順 で 比較 が で きる . 


実 引 数 


プロ シー ジャ 側 に 渡す 実際 の デー タ . 実 引数 と し て , 
変数 。 定数 , 式 を 書け る . 


_ 自動 構文 チェ ッ ク 機 能 


0B の エディ タ は | また は [| の 入力 で その 行 の 内 容 が 
正しい BASIC 文 法 に 従っ て いる か チェ ッ ク し , も し 誤っ 
て いれ ば メッ セー ジ を 出す . これ を 自動 構文 チェ ッ ク 機 
能 と いう . 


スク リー ン 座 禁 
ー ジ ャ 側 か ら は その アド レス を 元 に 呼び 出し 側 の 実 引数 
デー タ を 参照 する 方 式 . 


従来 型 |F 文 
THEN 節 , ELSE 節 に ブロ ッ ク ( 複 文 ) を 認め な い タ イプ 
の IF 文 . 
楽 件 判断 文 

条件 式 の 真 / 偽 に より プロ グラ ム の 流れ を 変え る 制御 
が 
所 定 回 反復 

くり 返し 回 数 が 定まっ て いる くり 返し . FOR-CNEXT 文 
より 行う 、 
ジョ ー ト ・ カ ッ ト ・ キ ー 

0B の メニ ュー の 一 部 は ファ ンク ショ ン キ ー に 割り 当 
れい る 。 これ を ショ ー ト ドカ ッ ト * キ ギー と いい 。 
メニ ュー 和志 択 を する 代わ り に この キー を 押す と 。 1 タッ 
チ で 希望 の メニ ュー に 入る こと が で きる ホッ ト ・ キ ー 


と も いう . 


真 偽 

染 件 を 満た すこ と を 真 , 満た さ な い こと を 偽 と いう . 
真 の 値 は 内 部 的 に は 一 1, 偽 の 値 は 0 で ある . 
数 値 演算 コ ・ プ ロ セ ッ サ 

コ ・ プ ブロ セッ サ は , CPU が 行う べき 処理 を 分 担 し て 行う 
た め の 共 調 プ ロ セ ッ サ . 数 値 演算 コ ・ プ ロ セ ッ サ は , 数 


値 演算 を 分 担 し て 行う プロセッサ. インテ ル 8087/80287 


な ど が 有名 . 





スク リー ン 上 に 図形 が 表示 され る 際 の 座標 で , (0, 0) 


て (639, 399) の 範囲 て ある . 
スコ ー ズ 


変数 が 使用 で きる (有効 で ある ) 範囲 を スコ ー プ と い 


う . スコ ー プ に は ロー カル (プロ シー ジャ 内 で の み 有 効 ) 
| と グロ ー バ ル (ブロ グラ ム の 全域 で 有効 ) の 2 つが ある . 
通用 範 団 と も いう . 
ステ ー ト メン ト 


プログ ラム 中 に 記述 する BASIC の 基本 命令 . 


| 前 判定 反復 


ルー プ の 先頭 で 終了 条件 を 判定 する タイ プ の くり 返し 


| 構造 。 DO WHILE- ン LOOP が これ を 行う 制御 文 . 
流 字 


配列 の 順番 を 示す 数 値 . 
ソー ト 

デー タ を , 大 きい 順 , 小さ い 順 ある い は アル ファ ベッ 
ト 順に 並べ 換え る こと . 


【 だ 行 】 


ダイ アロ グ ・ ボ ックス 


ダイ アロ グ (dialogue) は 対話 と いう 意味 . し た が っ て 


ダイ アロ グ ・ ボ ックス は , 各 メ ニュ ー が 出す 応答 要求 に 


対し 操作 者 が 答え る た め の 囲 い 箱 と いう 意味 . 
大 域 的 変数 


っ ゥ グロー バル 変数 





ダイ レク ト ・ モ ー ド 

BASIC の ステ ー ト メン ト を 書き | を 入力 する こと て , 
その ステ ー ト メン ト を 即座 に 実行 する モー ド . 
タグ 

ユー ザ が 定義 する デー タ 型 を 識別 する た め の 付 加 的 識 
別 子 を タグ (tag) と いう . 
多重 ルー プ 

ルー プ の 中 に さら に ルー プ が 入っ て いる よう な 構造 を 
多重 ルー プ と いう . 


単 精度 型 実数 


デー タ 型 の サイ ズ に より 扱え る 値 の 範囲 と 有効 桁 数 が | 
4 バイ ト の サイ ス の 実数 型 を 倍 精 度 実数 と いう . 


| 決ま る . 
通用 範囲 
っ スコ ー プ 

ブロ グラ ム の 実行 中 に , 値 が 変化 し な い 数 を 定数 と 呼 
び , リテラ ル 定 数 と 記号 定数 に 大 別 さ れる . 
ディ イップ ・ ス イッ チ 

パソ コン 本 体 の 前 部 また は 後部 に つい て いる スイ ッ チ 
で , パソ コン の モー ド を 設定 する . 
ディ フォ ルト 

コマ ンド や ステ ー ト メン ト に 対し 。 オプション (スイ 


で 規定 値 (標準 値 ) を 採用 する こと を ディ フォ ルト ( 省 
略 時 解釈 ) と いう . 

ディ レク トリ 

ディ スク 上 の 吉 フ ァイル を 交 理 する た め に , ディ スク 
上 に ディ レク トリ 領域 が 設け られ , そこ に 各 フ ァイル 単 
位 の ファ イル 名 , ファ イル の 格納 位置 , 作成 時 な どの 情 
報 が 入っ て いる .DIR コ マン ド は この ディ レク トリ 領域 の 
内 容 を 表示 する も の で ある . 

デー タタ 弄 
| 我々 は 5 も 5.0 も 同じ よう に 考え る が , コ ンピュータ は 
これ ら を 上 厳密 に 区 別 す る . 前 者 を 整数 型 。 後者 を 実数 型 
と 呼ぶ 、 こ の よう に デー タ 型 を 厳密 に 定め る の は , デー 
_ タ の 代入 , 演算 に お いて 処理 が 正確 に スム ー ズ に 行え る 
よう に する た めで ある . 
手続 き 

っ プロ シー ジャ 
デバ イス ・ ド ライ バ 

マウ ス , プリ ンタ , RS-232C な どの 外部 装置 (デバ イス ) 
を 制御 する た め の ブ ログ ラム で , CONFIG. SYS の DEVICE 


命令 に より MS-DOS シ ステ ム に 組み 込ま れる も の を デバ 


イス * ド ライ バ と いう 。 
デバ ッ グ 

ブロ グラ ム 中 に 潜む 誤り を 虫 (bug : バグ ) に た と え , 
この 誤り (バグ ) を 取り 除く こと を デバ ッ グ (de-bug) 
を いい 9 。 
バッ ガ と いう 3。 


この デバ パ バッグ 作業 を 支援 する ソフ トウ ヴ ウェア を デ 


統 馬 開 発 環境 
イグ の 。 イ ンダ タブ リタ コン パイ タラ 。 
ッ ガ な ど を すべ て 1 つの シス テム ・ プ ログ ラム に 収め . 


一 度 こ の シス テム ・ ブ ログ ラム を 起動 し て お け ば , プル 
タダ タウン (ドロ ッ プ ・ ダ ウン ) メニ ュー か ら 高 速 に 各 処 理 


を 操作 で きる 方 式 の 作業 環境 . 
トレ ー ス 機能 
_。 ブログ ラム が 実行 され て いく 様子 を 1 行 ず つ 表 示し て 
いく 機能 . 
【 な 行 】 


流れ 制御 文 


原則 と し て プロ グラ ム は 上 か ら 下 に 実行 され る . と こ 


ろ が 複雑 な プロ グラ ム に な る と プロ グラ ム の 流れ を 条件 
判断 や くり 返し に よっ て 変更 し た いこ と が ある . これ を 
行う の が 流れ 制御 文 と 呼ば れる も の で ある . 
| 日 本 語 FEP 
日 本 語 入力 処理 を 行う た め の デ バイ ス ・ ド ライ バ . FEP 
| は 。 フロ ント ・ エ ンド ・ プ ブ プロセッサ の 意味 . 
ネス ト 
| くり 返し の 中 に くり 返し が 入っ た り , 条件 文 の 中 に 条 

件 文 が だ 入る こと を ネス ト (入れ 子 ) と いう . 
ッ チ ) や パラ メー タ を 与え な か っ た と き に 。 シス テム 倒 | 


【 は 行 】 

倍 精度 型 実数 

っ 昌 精 度 型 実数 
バイ ト 

情報 の 基底 単位 を ビッ ト と 呼び 。 1 ビッ ト に は "1' ま 
た は ”0”' の 情報 が 入る . 1 バイ ト は この ビッ ト が 8 普 
ん だ 記憶 単位 で ある . 8086 系 CPU の メモ リ の 1 つの 番地 
に 格納 され る デー タ 量 は 1 バイ ト で ある . 
配 


同じ 型 の デー タ を 並べ , 配列 名 と 添字 (そえ じ ) を 用 
いて デー タ の 各 要 素 を 参照 で きる よう に し た デー タ 構 造 . 
パス 名 


階層 ディ レク トリ に お いて , カレ ント ・ デ ィ レ クト リ 
また は ルー ト ・ デ ィ レ クト リ か ら , ある サブ プ デ ィ レ クト 


リ に 置か れ て いる ファ イル を 指定 する と き の 道順 に 付け 


る 名 前 . 
バッ チチ 処理 

いつ も 組 に し て 使う 複数 の コマ ンド を バッ チ フ ァイル 
(>。 BAT) に 記述 し て お き ,。 この バッ チ フ ァイル 名 を コ 


マン ドラ イン か ら 入 力 す る だ け で , バッ チ フ ァイル に 記 


述 さ れ て いる 一 連 の コマ ンド が 実行 され て いく . これ を 


| パッ チ 処 理 と いう . 


バレ ッ ト 

pallette は , ひと そろ い の 絵 の 具 と いう 意味 . SCREEN 文 
で ハ パレット: モモ 一 ドド を 設定 する こと に に より 。 グラ フィ ッ 
ク 画面 に 表示 で きる パレ ッ ト 色 の 数 が 決ま る . 


付録 


プッ 


か" 
(1 


Z/0 





引数 
呼び 出し 元 と 呼び 出さ れ た プロ シー ジャ の 間 で デー タ 
を 授受 する と き に 使う 実 デ ー タ また は 変数 を 引数 (ひき 


すう ) と いう . ブロ シー ジャ の 呼び 出し 時 に 書く 引数 を 
| 実 引数 , 呼び 出さ れ た プロ シー ジャ で その デー タ を 受け 
取る 変数 を 仮 引数 と いう . 


ビ ピク セル 
ク グラフィック 画面 ある い は テキ スト 画面 に 描画 を する 
際 の 最小 単位 の 画素 . グラ フィ ッ ク 画 面 で は ドッ ト と も 


いう 、 


ビット 
ー> ノ イト 


ビッ ト 演 算 


ビッ ト 演 算 は , 数 値 を 2 進 表 現し た と き の '1' ま た は 


'0' の 各 ビ ピッ ト ご と の 演算 を 行う . 


ビ ピット ・ パ ター ン 

デー タ を それ 全体 が 示す 数 値 と し て と ら え る の で は な 
く , 各 ビ ピット に それ ぞ れ の 意味 を も た せる 場合 が ある . 
こう し た 場合 に デー タ を "1 また は "0" を 用 いた 2 進 
表現 で 表し , これ を ビッ ト ・ パ ター ン と 呼ぶ . 


ビュ ー ボ ポート 


ワイ ンド ワウ で 切り 取っ た 還 形 デー タ を スク リー ン 上 に 
表示 する 際 の 四角 の 範囲 を ピュ ー ボ ポート と いう . 
ファ イル 

ディ スク に デー タ を 格納 する 際 , その 論理 的 に 1 か た 
まり の デー タ の 集合 を ファ イル と いう .。 この ファ イル を 
識別 する た め に ファ イル 名 が つけ られ る 。. 
ファ イル ・ オ ー プ ブン 

ファ イル と デー タ を 授受 する た め に , ファ イル 番号 と 
ファ イル 名 の 結合 ,。 ファ イル ・ モ ー ド の 指定 な どの 準備 
を する た め の 処 理 . 
ファ イル 番号 

ファ イル ・ オ ー プ ブン に より 。 その ファ イル を アク セス 


する た め の フ ァイル 番号 が ファ イル に 結び つけ られ る の 
で , 以後 の 処理 は ファ イル 名 で な く . この ファ イル 番号 


を 用 いる . 


| フォーマット 


購入 し た フロ ッ ピ ピー ディスク は 磁気 コー ディ ング し た 
だ サ の も の な の で その まま で は 使用 で きま な い 、 こく る に 。 
セク タ と いう デー タ を 格納 する 基本 単位 領域 を 区 分 け す 
る こと を フォ ー マ ッ ト (初期 化 ) と いう . 
複数 楽 件 判断 

染 件 が 真 な ら 処 理 A, 偽 な ら 処 理 B を 行う タイ プ ブ を ニニ 





方 向 条件 判断 と いう . 複数 条件 判断 は , 条件 に 応じ て 処 | 
理 A, B, C… を 行う タイ プ で て 分岐 先 が 複数 に 分 か れる . 


ブロ ッ ク IF 文 の ELSEIF 節 ,。 SELECT CASE 文 な ど に より 行 


生 
_ 複 文 


っ プ ブロック 


_ 囲 指定 と いう . DIMA( 一 5 TO 
は A(-5) て A(2 ) の 範囲 の 添字 を 使用 する . 
プル ・ ダ ウン ・ メ ニュ ー 


部 分 寺 囲 指定 


配列 の 添字 の 最小 値 と 最大 値 を 指定 する こと を 部 分 範 
2 ) と 宣言 され た 配列 


メイ ン メ ニュ ーー ササ プ メニ ュー、。 さら に サブ プ メ ニュ ー 


leeem ・ と いう ふう に , メニ ュー 画面 が 逐次 表示 され て いく 
「 メニ ュー 選択 方 式 . 
ブレ ー ク ・ ポ イン ト 


ブロ グラ ム の 実行 を 一 時 中 断 す る 位置 の こと を プ ブレー 


ク ・ ポ イン ト と いう . 
ブロ ッ ク 


いく つか の 文 を 文法 的 に ひと か た まり の 文 に し た も の 
を プ ブロック ( 複 文 ) と いう . 条件 判断 や , くり 返し の 部 
分 に お く 文 は 次 の よう に プ ブロック に な る こと が 多い . 


IF  A>0 THEN 
SUM= テ SUM 十 A 


N=N 十 1 テー プロ ッ ク 


ELSE 


従来 型 の BASIC に は この ブロ ッ ク と いう 概念 が な か っ 


| た た め IF 文 が スマ ー ト に 書け な か っ た が , OB で は ブロ ッ 


ク IF 文 を 用 いて スマ ー ト に まとめ る こと が で きる . 
ブロ ッ ク IF 文 

THEN 節 ,。 ELSE 節 に プ ブロック を 置く こと が で きる IF 文 
を , ブロ ッ ク IF 文 と いう . 


メロ シー ジャ 


従来 の サブ ルー チン (GOSUB 文 で 呼び 出す も の ) に 代 
わる 新しい タイ プ の 処理 機能 単位 を プロ シー ジャ と いい , 


| 次 の よう な 特徴 を 持つ . 


・ プ ブロ シー ジャ 間 の デー タ 授 受 は 引数 を 用 いる . 
・ ブ プロ シー ジャ 内 の 変数 は ロー カル . 
・ 他 の モジ ュー ル か ら 使 用 で きる . 


デー タ を 格納 する 箱 (メモ リ ) を 変数 と 呼び , 変数 に 


つけ る 名 前 を 変数 名 と いう . 変数 は , 代入 され る 値 (数 ) 
| に よっ て その 内 容 が 変わ る の で , 「 変 わる 数 」 と いう 意味 
で 変数 と 呼ば れる . 


ホッ ト ・ キ ー 
ペア ョ ー ト > カット *・ ギ ーー 
【 ま 行 


マル チ ・ ス テー トメ ント 
1 行 の 中 に コロ ン (: ) で 区 切っ て 複数 の 命令 文 を 並 
べた も の . 





無限 ルー プ 


| STOP | キー な どの 強制 手段 を 用 いな けれ ば 止め る こ 


と の で き な い ルー プ を 無限 ルー プ と いう . 
メン バ 

レコ ー ド の 各 構 成 要素 を メン ババ という. この メン バ に 
付け る 名 前 を メン バ 名 と いう . 
モジ ュー ル 

プロ グラ ム を いく つか の 独立 し た 機能 単位 に 分 割 し た 
と き , この 独立 し た 機能 単位 を モジ ュー ル と いう . 


戻り 値 
関数 か ら 返 され る 値 を 戻り 値 と いう . 
【 や 行 ) 
| 有効 範囲 
っ ゥ っ スコープ 
優先 順位 


| 4a 十 b※C に お いて , b*c が 先 に 計算 され る . これ 
は 十 よ り ※*※ の 方 が 優先 順位 が 高い か ら で あ る . この よう 
に 演算 子 に は 優先 順位 が 決ま っ て いる . 
ユー ザ 定 義 型 

整数 型 。 実数 型 , 文字 列 型 な どの 基本 デー タ 型 は あら 
か じ め 定 め ら れ て いる が , これ ら の 基本 デー タ 型 を 用 い 
て ユー ザ が 独自 に デー タ 型 を 定義 すむ する こと が で きる . こ 
れ を ユー ザ 定 義 型 と いい , QB で は レコ ー ド 型 が , この 弄 
に 属す る . 
予約 語 
予約 語 (キー・ ワ ー ド ) は 言語 仕様 に 定め られ て いる 


基本 的 な 言葉 で , ユー ザ は 勝手 に この 予約 語 と 同じ 名 前 


を 変数 名 や 関数 名 と し て 使う こと は で き な い . 
【 ら 行 )】 
フラ イブ ラリ 
利用 価値 の 高い プロ グラ ム (モジ ュー ル ) を 共通 の 資 


河 と し て 使用 で きる よう に し た も の を ライ ブラ リ と いう 。 


ライ ン ・ ス タイ ル 

グラ フィ ッ ク 画 面 に 直線 を 引く 際 の 線 の 形状 (実線 . 
一 点 鎖 線 な む な ど ) を ライ ン ・ ス タイ ル と いう . 
ラプ ジ アン 

半径 1 の 単位 円 に お いて , ある 角度 に 対す る 円 弧 の 長 


さ を ラ ジア ン と いう . た と えば 180 度 の 角 に 対す る ラジ ア | 


ン は, 円弧 の 長 さ が ヶ で ある か ら ァ ヶ ラ ジア ン と な る . 
ラベ ル 

GOTO 文 , GOSUB 文 の 飛び 先 に 付け る 名 札 を ラベ ル と 
いう . 


ラフ ランタイム ・ ラ イブ ラリ 


実行 され る ブロ グラ ム に は 結合 され て お ら ず , ブロ グ 
ラム が 実行 され る と き に , メモ リ 上 に ロー ド さ れる ライ 


プラ リ を ラン タイ ム ・ ラ イブ ラリ と いう . 





付録 


ラン ダム ・ フ ァイル 
任意 の レコ ー ド 位置 に 直接 リー ド プ ライ ト で きる 形式 


の ファ イル . 
リカ ー シ ブ ・ グ ラフ ィ ッ クス 


グラ フィ ックス の 世界 を 解析 的 に 表現 せ ず , 再帰 的 に 
| 表現 し た も の を を リカー シブル ・ グ ラフ ィ 5 が の る いう 。 


リカ ー シ ブ ・ コ ー ル 

プロ シー ジャ の 中 か ら 自 分 自身 を 呼び 出す こと . 
リテラ ル 

literal は 「 文字どおり の 」 と いう 意味 . 定数 は リテラ ル 
定数 と 記号 定数 に 分 けら れる . 
や "ABC" の よう に 値 や 文字 列 を その まま の 形 て 表現 し 
た も の . 
リン カ 

コン パイ ラ に より 生成 され た リロ ケー タプ ブル ・ オ プ ジ 
ェクト に ライ ブラ リ な ど を 結合 し た 実行 可能 ファ イル を 
生成 する シス テム ・ ブ プロ グラム. 


ルー プ ブ 
くり 返し に より , 指定 範囲 を 反復 する 制御 構造 を ルー 

プ と いう 。 

レコ ー ド 弄 


異な る 型 の デー タ を ひと か た まり に し て 扱え る よう に 
し た 型 。 TYPE ン END TYPE で レコ ー ド 型 を 定義 する . 
運 接 


命令 文 が 上 か ら 下 に 連続 し て 流れ て いく 構造 を 連接 と 


いう . 

ロー カル 変数 

つ 局 所 的 変数 
論理 演算 

真 プ 偽 を 扱う 演算 . 


【 わ 行 】 


ワー ルド 座標 
グラ フィ ッ ク ・ デ ー タ を 実際 に 描く 座標 . 


リテラ ル 定 数 と は , 1.50 


2// 
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